home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1998-11-04 | 25.5 KB | [PorR/OvrL] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| TrID
| DEGAS med-res bitmap
| default (weak)
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [PorR] |
| macFileCreator | [OvrL] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 53 4f 55 52 43 45 | 53 20 22 4d 61 73 74 65 |..SOURCE|S "Maste|
|00000010| 72 2e 72 73 72 63 22 0d | 57 49 4e 44 4f 57 20 4f |r.rsrc".|WINDOW O|
|00000020| 46 46 0d 0d 44 49 4d 20 | 66 6f 6c 64 65 72 4c 6f |FF..DIM |folderLo|
|00000030| 63 0d 44 49 4d 20 73 6f | 66 74 77 61 72 65 24 0d |c.DIM so|ftware$.|
|00000040| 44 49 4d 20 73 6f 66 74 | 77 61 72 65 4c 65 6e 0d |DIM soft|wareLen.|
|00000050| 44 49 4d 20 73 65 6e 73 | 69 74 69 76 69 74 79 0d |DIM sens|itivity.|
|00000060| 44 49 4d 20 6c 6f 63 61 | 74 69 6f 6e 24 0d 44 49 |DIM loca|tion$.DI|
|00000070| 4d 20 6c 6f 63 61 74 69 | 6f 6e 4c 65 6e 0d 44 49 |M locati|onLen.DI|
|00000080| 4d 20 6c 65 76 65 6c 24 | 0d 44 49 4d 20 72 65 64 |M level$|.DIM red|
|00000090| 72 61 77 0d 44 49 4d 20 | 6c 65 76 65 6c 4c 65 6e |raw.DIM |levelLen|
|000000a0| 0d 44 49 4d 20 70 69 63 | 74 4e 61 6d 65 24 0d 44 |.DIM pic|tName$.D|
|000000b0| 49 4d 20 70 69 63 74 4c | 65 6e 0d 44 49 4d 20 70 |IM pictL|en.DIM p|
|000000c0| 6c 61 79 69 6e 67 0d 44 | 49 4d 20 72 66 69 28 35 |laying.D|IM rfi(5|
|000000d0| 30 29 0d 44 49 4d 20 65 | 6e 64 41 64 64 72 65 73 |0).DIM e|ndAddres|
|000000e0| 73 0d 44 49 4d 20 65 6e | 64 54 65 78 74 24 28 32 |s.DIM en|dText$(2|
|000000f0| 35 29 0d 44 49 4d 20 65 | 6e 64 54 65 78 74 4c 65 |5).DIM e|ndTextLe|
|00000100| 6e 28 32 35 29 0d 44 49 | 4d 20 67 65 6e 65 72 69 |n(25).DI|M generi|
|00000110| 63 53 74 72 24 0d 44 49 | 4d 20 67 65 6e 65 72 69 |cStr$.DI|M generi|
|00000120| 63 49 6e 74 0d 44 49 4d | 20 73 63 72 65 65 6e 0d |cInt.DIM| screen.|
|00000130| 44 49 4d 20 73 61 76 65 | 4e 61 6d 65 24 0d 44 49 |DIM save|Name$.DI|
|00000140| 4d 20 6e 61 6d 65 4c 65 | 6e 67 74 68 0d 44 49 4d |M nameLe|ngth.DIM|
|00000150| 20 73 65 6e 73 69 74 69 | 76 69 74 79 0d 44 49 4d | sensiti|vity.DIM|
|00000160| 20 69 6e 63 61 6d 70 0d | 44 49 4d 20 77 69 6e 79 | incamp.|DIM winy|
|00000170| 65 74 0d 44 49 4d 20 6c | 65 76 65 6c 0d 44 49 4d |et.DIM l|evel.DIM|
|00000180| 20 61 63 74 69 76 65 43 | 69 72 63 0d 44 49 4d 20 | activeC|irc.DIM |
|00000190| 73 65 6c 65 63 74 65 64 | 73 61 76 65 0d 44 49 4d |selected|save.DIM|
|000001a0| 20 62 75 74 74 6f 6e 68 | 69 74 0d 44 49 4d 20 62 | buttonh|it.DIM b|
|000001b0| 72 65 61 6b 6f 75 74 0d | 44 49 4d 20 73 63 6f 72 |reakout.|DIM scor|
|000001c0| 65 0d 44 49 4d 20 72 65 | 63 79 63 6c 65 73 0d 44 |e.DIM re|cycles.D|
|000001d0| 49 4d 20 6d 69 6e 6c 65 | 66 74 0d 44 49 4d 20 74 |IM minle|ft.DIM t|
|000001e0| 69 6d 65 75 73 65 64 0d | 44 49 4d 20 6e 75 6d 65 |imeused.|DIM nume|
|000001f0| 72 61 6c 24 0d 44 49 4d | 20 70 6c 61 63 65 24 0d |ral$.DIM| place$.|
|00000200| 44 49 4d 20 73 63 6f 72 | 65 0d 44 49 4d 20 67 75 |DIM scor|e.DIM gu|
|00000210| 65 73 73 6c 65 6e 0d 44 | 49 4d 20 74 65 6e 73 65 |esslen.D|IM tense|
|00000220| 63 6c 65 66 74 0d 44 49 | 4d 20 64 65 62 75 67 76 |cleft.DI|M debugv|
|00000230| 61 72 0d 44 49 4d 20 69 | 6e 74 65 72 6e 61 6c 6c |ar.DIM i|nternall|
|00000240| 6f 6f 70 0d 44 49 4d 20 | 73 65 63 6c 65 66 74 0d |oop.DIM |secleft.|
|00000250| 44 49 4d 20 6d 69 6e 6c | 65 66 74 24 0d 44 49 4d |DIM minl|eft$.DIM|
|00000260| 20 64 69 66 66 69 63 75 | 6c 74 79 0d 44 49 4d 20 | difficu|lty.DIM |
|00000270| 72 65 73 74 61 72 74 0d | 44 49 4d 20 74 65 6e 73 |restart.|DIM tens|
|00000280| 65 63 6c 65 66 74 24 0d | 44 49 4d 20 73 65 63 6c |ecleft$.|DIM secl|
|00000290| 65 66 74 24 0d 44 49 4d | 20 74 69 6d 65 6c 65 66 |eft$.DIM| timelef|
|000002a0| 74 0d 44 49 4d 20 6c 6f | 6f 70 73 25 0d 44 49 4d |t.DIM lo|ops%.DIM|
|000002b0| 20 74 69 6d 65 6e 6f 77 | 24 0d 44 49 4d 20 74 69 | timenow|$.DIM ti|
|000002c0| 6d 65 6e 6f 77 0d 44 49 | 4d 20 74 69 6d 65 6f 72 |menow.DI|M timeor|
|000002d0| 69 67 24 0d 44 49 4d 20 | 74 69 6d 65 6f 72 69 67 |ig$.DIM |timeorig|
|000002e0| 0d 44 49 4d 20 6e 75 6d | 25 28 38 29 0d 44 49 4d |.DIM num|%(8).DIM|
|000002f0| 20 6e 75 6d 24 28 38 29 | 0d 44 49 4d 20 6e 75 6d | num$(8)|.DIM num|
|00000300| 74 6f 74 61 6c 25 0d 44 | 49 4d 20 6e 75 6d 74 6f |total%.D|IM numto|
|00000310| 74 61 6c 24 0d 44 49 4d | 20 67 75 65 73 73 74 6f |tal$.DIM| guessto|
|00000320| 74 61 6c 24 0d 44 49 4d | 20 67 75 65 73 73 74 6f |tal$.DIM| guessto|
|00000330| 74 61 6c 25 0d 44 49 4d | 20 61 67 61 69 6e 24 0d |tal%.DIM| again$.|
|00000340| 44 49 4d 20 6e 75 6d 63 | 6f 75 6e 74 25 28 38 29 |DIM numc|ount%(8)|
|00000350| 0d 44 49 4d 20 72 6e 75 | 6d 63 6f 75 6e 74 25 28 |.DIM rnu|mcount%(|
|00000360| 38 29 0d 44 49 4d 20 67 | 6e 75 6d 63 6f 75 6e 74 |8).DIM g|numcount|
|00000370| 25 28 38 29 0d 44 49 4d | 20 6c 6f 6f 70 73 25 0d |%(8).DIM| loops%.|
|00000380| 44 49 4d 20 63 61 70 61 | 63 69 74 6f 72 0d 44 49 |DIM capa|citor.DI|
|00000390| 4d 20 67 75 65 73 73 25 | 0d 44 49 4d 20 67 75 65 |M guess%|.DIM gue|
|000003a0| 73 73 25 28 38 29 0d 44 | 49 4d 20 67 75 65 73 73 |ss%(8).D|IM guess|
|000003b0| 24 28 38 29 0d 44 49 4d | 20 70 6c 61 63 65 25 0d |$(8).DIM| place%.|
|000003c0| 44 49 4d 20 6e 75 6d 65 | 72 61 6c 25 0d 44 49 4d |DIM nume|ral%.DIM|
|000003d0| 20 74 6c 69 6d 69 74 6d | 69 6e 25 0d 44 49 4d 20 | tlimitm|in%.DIM |
|000003e0| 74 6c 69 6d 69 74 74 73 | 65 63 25 0d 44 49 4d 20 |tlimitts|ec%.DIM |
|000003f0| 74 6c 69 6d 69 74 73 65 | 63 25 0d 44 49 4d 20 64 |tlimitse|c%.DIM d|
|00000400| 74 68 6f 0d 44 49 4d 20 | 64 68 75 6e 0d 44 49 4d |tho.DIM |dhun.DIM|
|00000410| 20 64 74 65 6e 0d 44 49 | 4d 20 64 6f 6e 65 0d 44 | dten.DI|M done.D|
|00000420| 49 4d 20 77 69 6e 64 78 | 25 0d 44 49 4d 20 77 69 |IM windx|%.DIM wi|
|00000430| 6e 64 79 25 0d 44 49 4d | 20 74 69 6d 65 4c 69 6d |ndy%.DIM| timeLim|
|00000440| 69 74 24 0d 44 49 4d 20 | 74 69 6d 65 4c 69 6d 69 |it$.DIM |timeLimi|
|00000450| 74 25 0d 44 49 4d 20 6c | 65 6e 67 74 68 24 0d 44 |t%.DIM l|ength$.D|
|00000460| 49 4d 20 6c 65 6e 67 74 | 68 25 0d 44 49 4d 20 64 |IM lengt|h%.DIM d|
|00000470| 69 66 66 69 63 75 6c 74 | 79 24 0d 44 49 4d 20 64 |ifficult|y$.DIM d|
|00000480| 69 66 66 69 63 75 6c 74 | 79 25 0d 44 49 4d 20 67 |ifficult|y%.DIM g|
|00000490| 75 65 73 73 73 74 72 24 | 0d 44 49 4d 20 72 65 67 |uessstr$|.DIM reg|
|000004a0| 56 61 72 0d 44 49 4d 20 | 72 65 7a 57 0d 44 49 4d |Var.DIM |rezW.DIM|
|000004b0| 20 72 65 7a 48 0d 44 49 | 4d 20 6d 75 73 69 63 4c | rezH.DI|M musicL|
|000004c0| 65 6e 0d 45 4e 44 20 47 | 4c 4f 42 41 4c 53 0d 0d |en.END G|LOBALS..|
|000004d0| 66 6f 6c 64 65 72 4c 6f | 63 3d 46 4f 4c 44 45 52 |folderLo|c=FOLDER|
|000004e0| 28 22 53 74 9f 66 22 2c | 30 29 0d 72 66 69 28 31 |("St.f",|0).rfi(1|
|000004f0| 29 3d 46 4e 20 4f 50 45 | 4e 52 46 50 45 52 4d 28 |)=FN OPE|NRFPERM(|
|00000500| 22 42 61 73 69 63 20 4d | 69 73 73 69 6f 6e 20 53 |"Basic M|ission S|
|00000510| 65 74 22 2c 66 6f 6c 64 | 65 72 4c 6f 63 2c 5f 66 |et",fold|erLoc,_f|
|00000520| 73 52 64 50 65 72 6d 29 | 0d 72 66 69 28 32 29 3d |sRdPerm)|.rfi(2)=|
|00000530| 46 4e 20 4f 50 45 4e 52 | 46 50 45 52 4d 28 22 42 |FN OPENR|FPERM("B|
|00000540| 61 73 69 63 20 52 65 73 | 6f 75 72 63 65 20 53 65 |asic Res|ource Se|
|00000550| 74 22 2c 66 6f 6c 64 65 | 72 4c 6f 63 2c 5f 66 73 |t",folde|rLoc,_fs|
|00000560| 52 64 50 65 72 6d 29 0d | 0d 72 65 7a 57 3d 53 59 |RdPerm).|.rezW=SY|
|00000570| 53 54 45 4d 28 5f 73 63 | 72 6e 57 69 64 74 68 29 |STEM(_sc|rnWidth)|
|00000580| 0d 72 65 7a 48 3d 53 59 | 53 54 45 4d 28 5f 73 63 |.rezH=SY|STEM(_sc|
|00000590| 72 6e 48 65 69 67 68 74 | 29 0d 0d 4f 50 45 4e 20 |rnHeight|)..OPEN |
|000005a0| 22 49 22 2c 31 2c 22 4f | 76 65 72 6c 6f 61 64 20 |"I",1,"O|verload |
|000005b0| 4d 75 73 69 63 22 2c 2c | 66 6f 6c 64 65 72 4c 6f |Music",,|folderLo|
|000005c0| 63 0d 52 45 43 4f 52 44 | 20 31 2c 31 0d 52 45 41 |c.RECORD| 1,1.REA|
|000005d0| 44 20 23 31 2c 6d 75 73 | 69 63 4c 65 6e 0d 43 4c |D #1,mus|icLen.CL|
|000005e0| 4f 53 45 20 31 0d 0d 52 | 41 4e 44 4f 4d 20 54 49 |OSE 1..R|ANDOM TI|
|000005f0| 4d 45 52 0d 0d 57 49 4e | 44 4f 57 20 35 30 30 2c |MER..WIN|DOW 500,|
|00000600| 2c 28 30 2c 30 29 2d 28 | 72 65 7a 57 2c 72 65 7a |,(0,0)-(|rezW,rez|
|00000610| 48 29 2c 5f 64 69 61 6c | 6f 67 50 6c 61 69 6e 0d |H),_dial|ogPlain.|
|00000620| 0d 50 49 43 54 55 52 45 | 20 46 49 45 4c 44 20 35 |.PICTURE| FIELD 5|
|00000630| 30 30 2c 20 22 53 74 65 | 65 6c 50 6c 61 74 65 22 |00, "Ste|elPlate"|
|00000640| 2c 28 30 2c 30 29 2d 28 | 72 65 7a 57 2f 32 2c 72 |,(0,0)-(|rezW/2,r|
|00000650| 65 7a 48 2f 32 29 2c 5f | 73 74 61 74 4e 6f 46 72 |ezH/2),_|statNoFr|
|00000660| 61 6d 65 64 0d 50 49 43 | 54 55 52 45 20 46 49 45 |amed.PIC|TURE FIE|
|00000670| 4c 44 20 35 30 31 2c 20 | 22 53 74 65 65 6c 50 6c |LD 501, |"SteelPl|
|00000680| 61 74 65 22 2c 28 72 65 | 7a 57 2f 32 2c 30 29 2d |ate",(re|zW/2,0)-|
|00000690| 28 72 65 7a 57 2c 72 65 | 7a 48 2f 32 29 2c 5f 73 |(rezW,re|zH/2),_s|
|000006a0| 74 61 74 4e 6f 46 72 61 | 6d 65 64 0d 50 49 43 54 |tatNoFra|med.PICT|
|000006b0| 55 52 45 20 46 49 45 4c | 44 20 35 30 32 2c 20 22 |URE FIEL|D 502, "|
|000006c0| 53 74 65 65 6c 50 6c 61 | 74 65 22 2c 28 30 2c 72 |SteelPla|te",(0,r|
|000006d0| 65 7a 48 2f 32 29 2d 28 | 72 65 7a 57 2f 32 2c 72 |ezH/2)-(|rezW/2,r|
|000006e0| 65 7a 48 29 2c 5f 73 74 | 61 74 4e 6f 46 72 61 6d |ezH),_st|atNoFram|
|000006f0| 65 64 0d 50 49 43 54 55 | 52 45 20 46 49 45 4c 44 |ed.PICTU|RE FIELD|
|00000700| 20 35 30 33 2c 20 22 53 | 74 65 65 6c 50 6c 61 74 | 503, "S|teelPlat|
|00000710| 65 22 2c 28 72 65 7a 57 | 2f 32 2c 72 65 7a 48 2f |e",(rezW|/2,rezH/|
|00000720| 32 29 2d 28 72 65 7a 57 | 2c 72 65 7a 48 29 2c 5f |2)-(rezW|,rezH),_|
|00000730| 73 74 61 74 4e 6f 46 72 | 61 6d 65 64 0d 0d 22 61 |statNoFr|amed.."a|
|00000740| 64 22 0d 57 49 4e 44 4f | 57 20 31 2c 2c 28 30 2c |d".WINDO|W 1,,(0,|
|00000750| 30 29 2d 28 33 32 30 2c | 32 34 30 29 2c 5f 64 69 |0)-(320,|240),_di|
|00000760| 61 6c 6f 67 50 6c 61 69 | 6e 0d 70 69 63 74 26 3d |alogPlai|n.pict&=|
|00000770| 46 4e 20 47 45 54 52 45 | 53 4f 55 52 43 45 28 5f |FN GETRE|SOURCE(_|
|00000780| 22 50 49 43 54 22 2c 31 | 34 31 29 0d 50 49 43 54 |"PICT",1|41).PICT|
|00000790| 55 52 45 20 28 30 2c 30 | 29 2c 70 69 63 74 26 0d |URE (0,0|),pict&.|
|000007a0| 44 45 4c 41 59 20 32 30 | 30 30 0d 70 69 63 74 26 |DELAY 20|00.pict&|
|000007b0| 3d 46 4e 20 47 45 54 52 | 45 53 4f 55 52 43 45 28 |=FN GETR|ESOURCE(|
|000007c0| 5f 22 50 49 43 54 22 2c | 31 34 33 29 0d 50 49 43 |_"PICT",|143).PIC|
|000007d0| 54 55 52 45 20 28 30 2c | 30 29 2c 70 69 63 74 26 |TURE (0,|0),pict&|
|000007e0| 0d 44 45 4c 41 59 20 35 | 30 0d 70 69 63 74 26 3d |.DELAY 5|0.pict&=|
|000007f0| 46 4e 20 47 45 54 52 45 | 53 4f 55 52 43 45 28 5f |FN GETRE|SOURCE(_|
|00000800| 22 50 49 43 54 22 2c 31 | 34 34 29 0d 50 49 43 54 |"PICT",1|44).PICT|
|00000810| 55 52 45 20 28 30 2c 30 | 29 2c 70 69 63 74 26 0d |URE (0,0|),pict&.|
|00000820| 44 45 4c 41 59 20 35 30 | 0d 70 69 63 74 26 3d 46 |DELAY 50|.pict&=F|
|00000830| 4e 20 47 45 54 52 45 53 | 4f 55 52 43 45 28 5f 22 |N GETRES|OURCE(_"|
|00000840| 50 49 43 54 22 2c 31 34 | 32 29 0d 50 49 43 54 55 |PICT",14|2).PICTU|
|00000850| 52 45 20 28 30 2c 30 29 | 2c 70 69 63 74 26 0d 44 |RE (0,0)|,pict&.D|
|00000860| 45 4c 41 59 20 35 30 0d | 43 4f 4c 4f 52 20 5f 7a |ELAY 50.|COLOR _z|
|00000870| 57 68 69 74 65 0d 42 4f | 58 20 46 49 4c 4c 20 30 |White.BO|X FILL 0|
|00000880| 2c 30 20 54 4f 20 33 32 | 30 2c 32 34 30 0d 43 4f |,0 TO 32|0,240.CO|
|00000890| 4c 4f 52 20 5f 7a 42 6c | 61 63 6b 0d 54 45 58 54 |LOR _zBl|ack.TEXT|
|000008a0| 20 2c 32 34 0d 43 4f 4c | 4f 52 20 5f 7a 43 79 61 | ,24.COL|OR _zCya|
|000008b0| 6e 0d 44 45 4c 41 59 20 | 33 30 30 0d 0d 50 52 49 |n.DELAY |300..PRI|
|000008c0| 4e 54 25 28 35 30 2c 33 | 30 29 22 54 22 0d 50 52 |NT%(50,3|0)"T".PR|
|000008d0| 49 4e 54 25 28 32 33 30 | 2c 32 31 30 29 22 65 22 |INT%(230|,210)"e"|
|000008e0| 0d 44 4f 3a 55 4e 54 49 | 4c 20 4d 4f 55 53 45 28 |.DO:UNTI|L MOUSE(|
|000008f0| 64 6f 77 6e 29 0d 44 45 | 4c 41 59 20 32 30 0d 50 |down).DE|LAY 20.P|
|00000900| 52 49 4e 54 25 28 37 30 | 2c 33 30 29 22 65 22 0d |RINT%(70|,30)"e".|
|00000910| 50 52 49 4e 54 25 28 32 | 31 30 2c 32 31 30 29 22 |PRINT%(2|10,210)"|
|00000920| 72 22 0d 44 4f 3a 55 4e | 54 49 4c 20 4d 4f 55 53 |r".DO:UN|TIL MOUS|
|00000930| 45 28 64 6f 77 6e 29 0d | 44 45 4c 41 59 20 32 30 |E(down).|DELAY 20|
|00000940| 0d 50 52 49 4e 54 25 28 | 39 30 2c 33 30 29 22 63 |.PRINT%(|90,30)"c|
|00000950| 22 0d 44 4f 3a 55 4e 54 | 49 4c 20 4d 4f 55 53 45 |".DO:UNT|IL MOUSE|
|00000960| 28 64 6f 77 6e 29 0d 44 | 45 4c 41 59 20 32 30 0d |(down).D|ELAY 20.|
|00000970| 50 52 49 4e 54 25 28 31 | 31 30 2c 33 30 29 22 68 |PRINT%(1|10,30)"h|
|00000980| 22 0d 50 52 49 4e 54 25 | 28 31 39 30 2c 32 31 30 |".PRINT%|(190,210|
|00000990| 29 22 61 22 0d 44 4f 3a | 55 4e 54 49 4c 20 4d 4f |)"a".DO:|UNTIL MO|
|000009a0| 55 53 45 28 64 6f 77 6e | 29 0d 44 45 4c 41 59 20 |USE(down|).DELAY |
|000009b0| 32 30 0d 50 52 49 4e 54 | 25 28 31 33 30 2c 33 30 |20.PRINT|%(130,30|
|000009c0| 29 22 6e 22 0d 50 52 49 | 4e 54 25 28 31 36 35 2c |)"n".PRI|NT%(165,|
|000009d0| 32 31 30 29 22 77 22 0d | 44 4f 3a 55 4e 54 49 4c |210)"w".|DO:UNTIL|
|000009e0| 20 4d 4f 55 53 45 28 64 | 6f 77 6e 29 0d 44 45 4c | MOUSE(d|own).DEL|
|000009f0| 41 59 20 32 30 0d 50 52 | 49 4e 54 25 28 31 35 30 |AY 20.PR|INT%(150|
|00000a00| 42 72 69 61 6e 6f 22 0d | 44 4f 3a 55 4e 54 49 4c |Briano".|DO:UNTIL|
|00000a10| 20 4d 4f 55 53 45 28 64 | 6f 77 6e 29 0d 44 45 4c | MOUSE(d|own).DEL|
|00000a20| 41 59 20 32 30 0d 50 52 | 49 4e 54 25 28 31 37 30 |AY 20.PR|INT%(170|
|00000a30| 2c 33 30 29 22 47 22 0d | 50 52 49 4e 54 25 28 31 |,30)"G".|PRINT%(1|
|00000a40| 34 35 2c 32 31 30 29 22 | 74 22 0d 44 4f 3a 55 4e |45,210)"|t".DO:UN|
|00000a50| 54 49 4c 20 4d 4f 55 53 | 45 28 64 6f 77 6e 29 0d |TIL MOUS|E(down).|
|00000a60| 44 45 4c 41 59 20 32 30 | 0d 50 52 49 4e 54 25 28 |DELAY 20|.PRINT%(|
|00000a70| 31 39 30 2c 33 30 29 22 | 65 22 0d 50 52 49 4e 54 |190,30)"|e".PRINT|
|00000a80| 25 28 31 32 35 2c 32 31 | 30 29 22 66 22 0d 44 4f |%(125,21|0)"f".DO|
|00000a90| 3a 55 4e 54 49 4c 20 4d | 4f 55 53 45 28 64 6f 77 |:UNTIL M|OUSE(dow|
|00000aa0| 6e 29 0d 44 45 4c 41 59 | 20 32 30 0d 50 52 49 4e |n).DELAY| 20.PRIN|
|00000ab0| 54 25 28 32 31 30 2c 33 | 30 29 22 65 22 0d 44 4f |T%(210,3|0)"e".DO|
|00000ac0| 3a 55 4e 54 49 4c 20 4d | 4f 55 53 45 28 64 6f 77 |:UNTIL M|OUSE(dow|
|00000ad0| 6e 29 0d 44 45 4c 41 59 | 20 32 30 0d 50 52 49 4e |n).DELAY| 20.PRIN|
|00000ae0| 54 25 28 32 33 30 2c 33 | 30 29 22 6b 22 0d 50 52 |T%(230,3|0)"k".PR|
|00000af0| 49 4e 54 25 28 31 30 35 | 2c 32 31 30 29 22 6f 22 |INT%(105|,210)"o"|
|00000b00| 00 05 4f 3a 55 4e 54 49 | 4c 20 4d 4f 55 53 45 28 |..O:UNTI|L MOUSE(|
|00000b10| 64 6f 77 6e 29 0d 44 45 | 4c 41 59 20 32 30 0d 50 |down).DE|LAY 20.P|
|00000b20| 52 49 4e 54 25 28 32 35 | 30 2c 33 30 29 22 73 22 |RINT%(25|0,30)"s"|
|00000b30| 0d 50 52 49 4e 54 25 28 | 38 35 2c 32 31 30 29 22 |.PRINT%(|85,210)"|
|00000b40| 53 22 0d 44 4f 3a 55 4e | 54 49 4c 20 4d 4f 55 53 |S".DO:UN|TIL MOUS|
|00000b50| 45 28 64 6f 77 6e 29 0d | 44 45 4c 41 59 20 35 30 |E(down).|DELAY 50|
|00000b60| 30 0d 70 69 63 74 26 3d | 46 4e 20 47 45 54 52 45 |0.pict&=|FN GETRE|
|00000b70| 53 4f 55 52 43 45 28 5f | 22 50 49 43 54 22 2c 31 |SOURCE(_|"PICT",1|
|00000b80| 34 32 29 0d 50 49 43 54 | 55 52 45 20 28 30 2c 30 |42).PICT|URE (0,0|
|00000b90| 29 2c 70 69 63 74 26 0d | 50 52 49 4e 54 25 28 35 |),pict&.|PRINT%(5|
|00000ba0| 30 2c 33 30 29 22 54 22 | 0d 50 52 49 4e 54 25 28 |0,30)"T"|.PRINT%(|
|00000bb0| 32 33 30 2c 32 31 30 29 | 22 65 22 0d 50 52 49 4e |230,210)|"e".PRIN|
|00000bc0| 54 25 28 37 30 2c 33 30 | 29 22 65 22 0d 50 52 49 |T%(70,30|)"e".PRI|
|00000bd0| 4e 54 25 28 32 31 30 2c | 32 31 30 29 22 72 22 0d |NT%(210,|210)"r".|
|00000be0| 50 52 49 4e 54 25 28 39 | 30 2c 33 30 29 22 63 22 |PRINT%(9|0,30)"c"|
|00000bf0| 0d 50 52 49 4e 54 25 28 | 31 31 30 2c 33 30 29 22 |.PRINT%(|110,30)"|
|00000c00| 00 03 00 07 48 00 00 0c | 54 60 dd 7e 7f ff 02 14 |....H...|T`.~....|
|00000c10| 57 ff f8 7f 40 82 00 10 | 28 03 00 00 41 82 00 08 |W...@...|(...A...|
|00000c20| 3b e0 00 01 48 00 6d 19 | 80 41 00 14 54 63 07 7e |;...H.m.|.A..Tc.~|
|00000c30| 57 e0 06 3e 7c 00 18 00 | 41 82 00 30 48 00 6d 01 |W..>|...|A..0H.m.|
|00000c40| 80 41 00 14 54 60 06 38 | 7f e3 03 78 48 00 6d 09 |.A..T`.8|...xH.m.|
|00000c50| 80 41 00 14 3c 80 00 01 | 38 84 00 08 38 60 02 08 |.A..<...|8...8`..|
|00000c60| 48 00 00 1d 60 00 00 00 | 80 01 00 48 38 21 00 40 |H...`...|...H8!.@|
|00000c70| 7c 08 03 a6 83 e1 ff fc | 4e 80 00 20 7c 08 02 a6 ||.......|N.. |...|
|00000c80| 90 01 00 08 94 21 ff c0 | 7c 86 23 78 80 02 01 7c |.....!..||.#x...||
|00000c90| 3c 80 00 04 7c 65 1b 78 | 90 01 00 38 38 61 00 38 |<...|e.x|...88a.8|
|00000ca0| 38 84 98 22 48 00 69 69 | 80 41 00 14 80 01 00 48 |8.."H.ii|.A.....H|
|00000cb0| 38 21 00 40 7c 08 03 a6 | 4e 80 00 20 7c 08 02 a6 |8!.@|...|N.. |...|
|00000cc0| 93 e1 ff fc 90 01 00 08 | 94 21 ff c0 3b e2 03 60 |........|.!..;..`|
|00000cd0| 80 9f 00 00 80 64 02 34 | 3c 63 00 01 80 63 40 20 |.....d.4|<c...c@ |
|00000ce0| 54 60 04 63 40 82 00 0c | 38 00 00 06 98 04 02 5e |T`.c@...|8......^|
|00000cf0| 80 7f 00 00 88 03 02 5e | 28 00 00 06 40 82 00 28 |.......^|(...@..(|
|00000d00| a0 03 02 48 2c 00 00 04 | 40 82 00 1c 80 63 02 34 |...H,...|@....c.4|
|00000d10| 80 03 00 38 6c 00 00 30 | 90 03 00 38 48 00 04 9d |...8l..0|...8H...|
|00000d20| 60 00 00 00 80 9f 00 00 | 80 64 02 34 3c 63 00 01 |`.......|.d.4<c..|
|00000d30| 80 63 40 20 54 60 04 63 | 40 82 00 10 38 00 00 06 |.c@ T`.c|@...8...|
|00000d40| 98 04 02 5e 48 00 00 64 | 54 60 67 3e b0 04 02 4c |...^H..d|T`g>...L|
|00000d50| 80 7f 00 00 a0 03 02 4c | 28 00 00 02 40 81 00 44 |.......L|(...@..D|
|00000d60| 38 00 00 05 98 03 02 5e | 48 00 06 05 60 00 00 00 |8......^|H...`...|
|00000d70| 80 9f 00 00 98 64 02 5e | 38 60 00 00 48 00 01 d9 |.....d.^|8`..H...|
|00000d80| 60 00 00 00 38 60 00 00 | 48 00 06 89 60 00 00 00 |`...8`..|H...`...|
|00000d90| 38 60 00 00 48 00 07 15 | 60 00 00 00 48 00 00 0c |8`..H...|`...H...|
|00000da0| 38 00 00 00 98 03 02 5e | 80 01 00 48 38 21 00 40 |8......^|...H8!.@|
|00000db0| 7c 08 03 a6 83 e1 ff fc | 4e 80 00 20 7c 08 02 a6 ||.......|N.. |...|
|00000dc0| 93 e1 ff fc 93 c1 ff f8 | 93 a1 ff f4 90 01 00 08 |........|........|
|00000dd0| 94 21 ff b0 3b e2 03 60 | 80 7f 00 00 a0 03 02 48 |.!..;..`|.......H|
|00000de0| 2c 00 00 06 40 82 00 e8 | 38 60 00 00 48 00 55 2d |,...@...|8`..H.U-|
|00000df0| 60 00 00 00 38 60 00 01 | 48 00 55 21 60 00 00 00 |`...8`..|H.U!`...|
|00000e00| 54 25 28 31 37 30 2c 33 | 30 29 22 47 22 0d 50 52 |T%(170,3|0)"G".PR|
|00000e10| 49 4e 54 25 28 31 34 35 | 2c 32 31 30 29 22 74 22 |INT%(145|,210)"t"|
|00000e20| 0d 50 52 49 4e 54 25 28 | 31 39 30 2c 33 30 29 22 |.PRINT%(|190,30)"|
|00000e30| 65 22 0d 50 52 49 4e 54 | 25 28 31 32 35 2c 32 31 |e".PRINT|%(125,21|
|00000e40| 30 29 22 66 22 0d 50 52 | 49 4e 54 25 28 32 31 30 |0)"f".PR|INT%(210|
|00000e50| 2c 33 30 29 22 65 22 0d | 50 52 49 4e 54 25 28 32 |,30)"e".|PRINT%(2|
|00000e60| 33 30 2c 33 30 29 22 6b | 22 0d 50 52 49 4e 54 25 |30,30)"k|".PRINT%|
|00000e70| 28 31 30 35 2c 32 31 30 | 29 22 6f 22 0d 50 52 49 |(105,210|)"o".PRI|
|00000e80| 4e 54 25 28 32 35 30 2c | 33 30 29 22 73 22 0d 50 |NT%(250,|30)"s".P|
|00000e90| 52 49 4e 54 25 28 38 35 | 2c 32 31 30 29 22 53 22 |RINT%(85|,210)"S"|
|00000ea0| 0d 44 4f 3a 55 4e 54 49 | 4c 20 4d 4f 55 53 45 28 |.DO:UNTI|L MOUSE(|
|00000eb0| 64 6f 77 6e 29 0d 44 45 | 4c 41 59 20 35 30 0d 70 |down).DE|LAY 50.p|
|00000ec0| 69 63 74 26 3d 46 4e 20 | 47 45 54 52 45 53 4f 55 |ict&=FN |GETRESOU|
|00000ed0| 52 43 45 28 5f 22 50 49 | 43 54 22 2c 31 34 33 29 |RCE(_"PI|CT",143)|
|00000ee0| 0d 50 49 43 54 55 52 45 | 20 28 30 2c 30 29 2c 70 |.PICTURE| (0,0),p|
|00000ef0| 69 63 74 26 0d 0d 50 52 | 49 4e 54 25 28 35 30 2c |ict&..PR|INT%(50,|
|00000f00| 33 30 29 22 54 22 0d 50 | 52 49 4e 54 25 28 32 33 |30)"T".P|RINT%(23|
|00000f10| 30 2c 32 31 30 29 22 65 | 22 0d 50 52 49 4e 54 25 |0,210)"e|".PRINT%|
|00000f20| 28 37 30 2c 33 30 29 22 | 65 22 0d 50 52 49 4e 54 |(70,30)"|e".PRINT|
|00000f30| 25 28 32 31 30 2c 32 31 | 30 29 22 72 22 0d 50 52 |%(210,21|0)"r".PR|
|00000f40| 49 4e 54 25 28 39 30 2c | 33 30 29 22 63 22 0d 50 |INT%(90,|30)"c".P|
|00000f50| 52 49 4e 54 25 28 31 31 | 30 2c 33 30 29 22 68 22 |RINT%(11|0,30)"h"|
|00000f60| 0d 50 52 49 4e 54 25 28 | 31 39 30 2c 32 31 30 29 |.PRINT%(|190,210)|
|00000f70| 22 61 22 0d 50 52 49 4e | 54 25 28 31 33 30 2c 33 |"a".PRIN|T%(130,3|
|00000f80| 30 29 22 6e 22 0d 50 52 | 49 4e 54 25 28 31 36 35 |0)"n".PR|INT%(165|
|00000f90| 2c 32 31 30 29 22 77 22 | 0d 50 52 49 4e 54 25 28 |,210)"w"|.PRINT%(|
|00000fa0| 31 35 30 2c 33 30 29 22 | 6f 22 0d 50 52 49 4e 54 |150,30)"|o".PRINT|
|00000fb0| 25 28 31 37 30 2c 33 30 | 29 22 47 22 0d 50 52 49 |%(170,30|)"G".PRI|
|00000fc0| 4e 54 25 28 31 34 35 2c | 32 31 30 29 22 74 22 0d |NT%(145,|210)"t".|
|00000fd0| 50 52 49 4e 54 25 28 31 | 39 30 2c 33 30 29 22 65 |PRINT%(1|90,30)"e|
|00000fe0| 22 0d 50 52 49 4e 54 25 | 28 31 32 35 2c 32 31 30 |".PRINT%|(125,210|
|00000ff0| 29 22 66 22 0d 50 52 49 | 4e 54 25 28 32 31 30 2c |)"f".PRI|NT%(210,|
|00001000| 33 30 29 22 65 22 0d 50 | 52 49 4e 54 25 28 32 33 |30)"e".P|RINT%(23|
|00001010| 30 2c 33 30 29 22 6b 22 | 0d 50 52 49 4e 54 25 28 |0,30)"k"|.PRINT%(|
|00001020| 31 30 35 2c 32 31 30 29 | 22 6f 22 0d 50 52 49 4e |105,210)|"o".PRIN|
|00001030| 54 25 28 32 35 30 2c 33 | 30 29 22 73 22 0d 50 52 |T%(250,3|0)"s".PR|
|00001040| 49 4e 54 25 28 38 35 2c | 32 31 30 29 22 53 22 0d |INT%(85,|210)"S".|
|00001050| 44 4f 3a 55 4e 54 49 4c | 20 4d 4f 55 53 45 28 64 |DO:UNTIL| MOUSE(d|
|00001060| 6f 77 6e 29 0d 44 45 4c | 41 59 20 35 30 0d 70 69 |own).DEL|AY 50.pi|
|00001070| 63 74 26 3d 46 4e 20 47 | 45 54 52 45 53 4f 55 52 |ct&=FN G|ETRESOUR|
|00001080| 43 45 28 5f 22 50 49 43 | 54 22 2c 31 34 31 29 0d |CE(_"PIC|T",141).|
|00001090| 50 49 43 54 55 52 45 20 | 28 30 2c 30 29 2c 70 69 |PICTURE |(0,0),pi|
|000010a0| 63 74 26 0d 0d 50 52 49 | 4e 54 25 28 35 30 2c 33 |ct&..PRI|NT%(50,3|
|000010b0| 30 29 22 54 22 0d 50 52 | 49 4e 54 25 28 32 33 30 |0)"T".PR|INT%(230|
|000010c0| 2c 32 31 30 29 22 65 22 | 0d 50 52 49 4e 54 25 28 |,210)"e"|.PRINT%(|
|000010d0| 37 30 2c 33 30 29 22 65 | 22 0d 50 52 49 4e 54 25 |70,30)"e|".PRINT%|
|000010e0| 28 32 31 30 2c 32 31 30 | 29 22 72 22 0d 50 52 49 |(210,210|)"r".PRI|
|000010f0| 4e 54 25 28 39 30 2c 33 | 30 29 22 63 22 0d 50 52 |NT%(90,3|0)"c".PR|
|00001100| 49 4e 54 25 28 31 31 30 | 2c 33 30 29 22 68 22 0d |INT%(110|,30)"h".|
|00001110| 50 52 49 4e 54 25 28 31 | 39 30 2c 32 31 30 29 22 |PRINT%(1|90,210)"|
|00001120| 61 22 0d 50 52 49 4e 54 | 25 28 31 33 30 2c 33 30 |a".PRINT|%(130,30|
|00001130| 29 22 6e 22 0d 50 52 49 | 4e 54 25 28 31 36 35 2c |)"n".PRI|NT%(165,|
|00001140| 32 31 30 29 22 77 22 0d | 50 52 49 4e 54 25 28 31 |210)"w".|PRINT%(1|
|00001150| 35 30 2c 33 30 29 22 6f | 22 0d 50 52 49 4e 54 25 |50,30)"o|".PRINT%|
|00001160| 28 31 37 30 2c 33 30 29 | 22 47 22 0d 50 52 49 4e |(170,30)|"G".PRIN|
|00001170| 54 25 28 31 34 35 2c 32 | 31 30 29 22 74 22 0d 50 |T%(145,2|10)"t".P|
|00001180| 52 49 4e 54 25 28 31 39 | 30 2c 33 30 29 22 65 22 |RINT%(19|0,30)"e"|
|00001190| 0d 50 52 49 4e 54 25 28 | 31 32 35 2c 32 31 30 29 |.PRINT%(|125,210)|
|000011a0| 22 66 22 0d 50 52 49 4e | 54 25 28 32 31 30 2c 33 |"f".PRIN|T%(210,3|
|000011b0| 30 29 22 65 22 0d 50 52 | 49 4e 54 25 28 32 33 30 |0)"e".PR|INT%(230|
|000011c0| 2c 33 30 29 22 6b 22 0d | 50 52 49 4e 54 25 28 31 |,30)"k".|PRINT%(1|
|000011d0| 30 35 2c 32 31 30 29 22 | 6f 22 0d 50 52 49 4e 54 |05,210)"|o".PRINT|
|000011e0| 25 28 32 35 30 2c 33 30 | 29 22 73 22 0d 50 52 49 |%(250,30|)"s".PRI|
|000011f0| 4e 54 25 28 38 35 2c 32 | 31 30 29 22 53 22 0d 44 |NT%(85,2|10)"S".D|
|00001200| 45 4c 41 59 20 31 30 30 | 30 0d 44 4f 3a 55 4e 54 |ELAY 100|0.DO:UNT|
|00001210| 49 4c 20 4d 4f 55 53 45 | 28 64 6f 77 6e 29 0d 70 |IL MOUSE|(down).p|
|00001220| 69 63 74 26 3d 46 4e 20 | 47 45 54 52 45 53 4f 55 |ict&=FN |GETRESOU|
|00001230| 52 43 45 28 5f 22 50 49 | 43 54 22 2c 31 34 39 29 |RCE(_"PI|CT",149)|
|00001240| 0d 50 49 43 54 55 52 45 | 20 28 30 2c 30 29 2c 70 |.PICTURE| (0,0),p|
|00001250| 69 63 74 26 0d 44 4f 3a | 55 4e 54 49 4c 20 4d 4f |ict&.DO:|UNTIL MO|
|00001260| 55 53 45 28 64 6f 77 6e | 29 0d 44 45 4c 41 59 20 |USE(down|).DELAY |
|00001270| 35 30 0d 70 69 63 74 26 | 3d 46 4e 20 47 45 54 52 |50.pict&|=FN GETR|
|00001280| 45 53 4f 55 52 43 45 28 | 5f 22 50 49 43 54 22 2c |ESOURCE(|_"PICT",|
|00001290| 31 35 30 29 0d 50 49 43 | 54 55 52 45 20 28 30 2c |150).PIC|TURE (0,|
|000012a0| 30 29 2c 70 69 63 74 26 | 0d 44 4f 3a 55 4e 54 49 |0),pict&|.DO:UNTI|
|000012b0| 4c 20 4d 4f 55 53 45 28 | 64 6f 77 6e 29 0d 44 45 |L MOUSE(|down).DE|
|000012c0| 4c 41 59 20 35 30 0d 70 | 69 63 74 26 3d 46 4e 20 |LAY 50.p|ict&=FN |
|000012d0| 47 45 54 52 45 53 4f 55 | 52 43 45 28 5f 22 50 49 |GETRESOU|RCE(_"PI|
|000012e0| 43 54 22 2c 31 35 31 29 | 0d 50 49 43 54 55 52 45 |CT",151)|.PICTURE|
|000012f0| 20 28 30 2c 30 29 2c 70 | 69 63 74 26 0d 44 4f 3a | (0,0),p|ict&.DO:|
|00001300| 55 4e 54 49 4c 20 4d 4f | 55 53 45 28 64 6f 77 6e |UNTIL MO|USE(down|
|00001310| 29 0d 44 45 4c 41 59 20 | 35 30 0d 43 4f 4c 4f 52 |).DELAY |50.COLOR|
|00001320| 20 5f 7a 42 6c 61 63 6b | 0d 42 4f 58 20 46 49 4c | _zBlack|.BOX FIL|
|00001330| 4c 20 30 2c 30 20 54 4f | 20 33 32 30 2c 32 34 30 |L 0,0 TO| 320,240|
|00001340| 0d 44 45 4c 41 59 20 33 | 30 30 0d 0d 43 4f 4c 4f |.DELAY 3|00..COLO|
|00001350| 52 20 5f 7a 52 65 64 0d | 50 52 49 4e 54 25 28 38 |R _zRed.|PRINT%(8|
|00001360| 30 2c 31 32 30 29 22 50 | 22 0d 44 45 4c 41 59 20 |0,120)"P|".DELAY |
|00001370| 32 30 0d 50 52 49 4e 54 | 25 28 31 30 30 2c 31 32 |20.PRINT|%(100,12|
|00001380| 30 29 22 72 22 0d 44 45 | 4c 41 59 20 32 30 0d 50 |0)"r".DE|LAY 20.P|
|00001390| 52 49 4e 54 25 28 31 32 | 30 2c 31 32 30 29 22 65 |RINT%(12|0,120)"e|
|000013a0| 22 0d 44 45 4c 41 59 20 | 32 30 0d 50 52 49 4e 54 |".DELAY |20.PRINT|
|000013b0| 25 28 31 34 30 2c 31 32 | 30 29 22 73 22 0d 44 45 |%(140,12|0)"s".DE|
|000013c0| 4c 41 59 20 32 30 0d 50 | 52 49 4e 54 25 28 31 36 |LAY 20.P|RINT%(16|
|000013d0| 30 2c 31 32 30 29 22 65 | 22 0d 44 45 4c 41 59 20 |0,120)"e|".DELAY |
|000013e0| 32 30 0d 50 52 49 4e 54 | 25 28 31 38 30 2c 31 32 |20.PRINT|%(180,12|
|000013f0| 30 29 22 6e 22 0d 44 45 | 4c 41 59 20 32 30 0d 50 |0)"n".DE|LAY 20.P|
|00001400| 52 49 4e 54 25 28 32 30 | 30 2c 31 32 30 29 22 74 |RINT%(20|0,120)"t|
|00001410| 22 0d 44 45 4c 41 59 20 | 32 30 0d 50 52 49 4e 54 |".DELAY |20.PRINT|
|00001420| 25 28 32 32 30 2c 31 32 | 30 29 22 73 22 0d 44 45 |%(220,12|0)"s".DE|
|00001430| 4c 41 59 20 31 30 30 30 | 0d 0d 43 4f 4c 4f 52 20 |LAY 1000|..COLOR |
|00001440| 5f 7a 57 68 69 74 65 0d | 46 4f 52 20 63 79 63 6c |_zWhite.|FOR cycl|
|00001450| 65 73 3d 31 20 54 4f 20 | 38 30 0d 20 20 50 4c 4f |es=1 TO |80. PLO|
|00001460| 54 20 28 31 36 30 2d 34 | 2a 63 79 63 6c 65 73 29 |T (160-4|*cycles)|
|00001470| 2c 31 32 30 20 54 4f 20 | 28 31 36 30 2b 34 2a 63 |,120 TO |(160+4*c|
|00001480| 79 63 6c 65 73 29 2c 31 | 32 30 0d 20 20 50 4c 4f |ycles),1|20. PLO|
|00001490| 54 20 31 36 30 2c 28 31 | 32 30 2d 33 2a 63 79 63 |T 160,(1|20-3*cyc|
|000014a0| 6c 65 73 29 20 54 4f 20 | 31 36 30 2c 28 31 32 30 |les) TO |160,(120|
|000014b0| 2b 33 2a 63 79 63 6c 65 | 73 29 0d 20 20 44 45 4c |+3*cycle|s). DEL|
|000014c0| 41 59 20 31 30 0d 4e 45 | 58 54 0d 0d 46 4f 52 20 |AY 10.NE|XT..FOR |
|000014d0| 63 79 63 6c 65 73 3d 31 | 20 54 4f 20 31 36 30 0d |cycles=1| TO 160.|
|000014e0| 20 20 50 45 4e 20 32 2a | 63 79 63 6c 65 73 2c 32 | PEN 2*|cycles,2|
|000014f0| 2a 63 79 63 6c 65 73 0d | 20 20 50 4c 4f 54 20 30 |*cycles.| PLOT 0|
|00001500| 00 00 32 30 2d 63 79 63 | 6c 65 73 20 54 4f 20 33 |..20-cyc|les TO 3|
|00001510| 32 30 2c 31 32 30 2d 63 | 79 63 6c 65 73 0d 20 20 |20,120-c|ycles. |
|00001520| 50 4c 4f 54 20 31 36 30 | 2d 63 79 63 6c 65 73 2c |PLOT 160|-cycles,|
|00001530| 30 20 54 4f 20 31 36 30 | 2d 63 79 63 6c 65 73 2c |0 TO 160|-cycles,|
|00001540| 32 34 30 0d 20 20 44 45 | 4c 41 59 20 31 30 0d 4e |240. DE|LAY 10.N|
|00001550| 45 58 54 0d 44 45 4c 41 | 59 20 31 30 30 30 0d 0d |EXT.DELA|Y 1000..|
|00001560| 53 4f 55 4e 44 20 22 53 | 74 61 72 74 53 6f 75 6e |SOUND "S|tartSoun|
|00001570| 64 22 0d 70 69 63 74 26 | 3d 46 4e 20 47 45 54 52 |d".pict&|=FN GETR|
|00001580| 45 53 4f 55 52 43 45 28 | 5f 22 50 49 43 54 22 2c |ESOURCE(|_"PICT",|
|00001590| 31 35 34 29 0d 50 49 43 | 54 55 52 45 20 28 30 2c |154).PIC|TURE (0,|
|000015a0| 30 29 2c 70 69 63 74 26 | 0d 44 45 4c 41 59 20 5f |0),pict&|.DELAY _|
|000015b0| 73 65 63 48 61 6c 66 0d | 70 69 63 74 26 3d 46 4e |secHalf.|pict&=FN|
|000015c0| 20 47 45 54 52 45 53 4f | 55 52 43 45 28 5f 22 50 | GETRESO|URCE(_"P|
|000015d0| 49 43 54 22 2c 31 35 33 | 29 0d 50 49 43 54 55 52 |ICT",153|).PICTUR|
|000015e0| 45 20 28 30 2c 30 29 2c | 70 69 63 74 26 0d 44 45 |E (0,0),|pict&.DE|
|000015f0| 4c 41 59 20 5f 73 65 63 | 48 61 6c 66 0d 70 69 63 |LAY _sec|Half.pic|
|00001600| 00 00 00 34 40 80 00 24 | 48 00 00 2c 2c 00 00 05 |...4@..$|H..,,...|
|00001610| 40 80 00 24 48 00 00 0c | 48 00 02 75 60 00 00 00 |@..$H...|H..u`...|
|00001620| 48 00 01 99 60 00 00 00 | 38 60 00 00 48 00 02 95 |H...`...|8`..H...|
|00001630| 60 00 00 00 38 62 03 60 | 38 00 00 00 80 63 00 00 |`...8b.`|8....c..|
|00001640| 98 03 02 5e 80 01 00 48 | 38 21 00 40 7c 08 03 a6 |...^...H|8!.@|...|
|00001650| 4e 80 00 20 7c 08 02 a6 | 90 01 00 08 94 21 ff c0 |N.. |...|.....!..|
|00001660| 54 60 06 3e 2c 00 00 02 | 41 82 00 30 40 80 00 10 |T`.>,...|A..0@...|
|00001670| 2c 00 00 00 41 82 00 24 | 48 00 00 2c 2c 00 00 04 |,...A..$|H..,,...|
|00001680| 41 82 00 10 40 80 00 20 | 48 00 02 05 60 00 00 00 |A...@.. |H...`...|
|00001690| 48 00 01 29 60 00 00 00 | 38 60 00 01 48 00 02 25 |H..)`...|8`..H..%|
|000016a0| 60 00 00 00 38 62 03 60 | 38 00 00 01 80 63 00 00 |`...8b.`|8....c..|
|000016b0| 98 03 02 5e 80 01 00 48 | 38 21 00 40 7c 08 03 a6 |...^...H|8!.@|...|
|000016c0| 4e 80 00 20 7c 08 02 a6 | 90 01 00 08 94 21 ff c0 |N.. |...|.....!..|
|000016d0| 54 60 06 3e 2c 00 00 03 | 41 82 00 38 40 80 00 18 |T`.>,...|A..8@...|
|000016e0| 2c 00 00 02 40 80 00 3c | 2c 00 00 00 40 80 00 14 |,...@..<|,...@...|
|000016f0| 48 00 00 30 2c 00 00 05 | 40 80 00 28 48 00 00 1c |H..0,...|@..(H...|
|00001700| 38 60 00 02 48 00 01 bd | 60 00 00 00 48 00 00 14 |8`..H...|`...H...|
|00001710| 48 00 01 7d 60 00 00 00 | 48 00 00 a1 60 00 00 00 |H..}`...|H...`...|
|00001720| 38 62 03 60 38 00 00 02 | 80 63 00 00 98 03 02 5e |8b.`8...|.c.....^|
|00001730| 80 01 00 48 38 21 00 40 | 7c 08 03 a6 4e 80 00 20 |...H8!.@||...N.. |
|00001740| 7c 08 02 a6 90 01 00 08 | 94 21 ff c0 54 60 06 3e ||.......|.!..T`.>|
|00001750| 2c 00 00 03 41 82 00 44 | 40 80 00 18 2c 00 00 02 |,...A..D|@...,...|
|00001760| 40 80 00 38 2c 00 00 00 | 40 80 00 14 48 00 00 2c |@..8,...|@...H..,|
|00001770| 2c 00 00 05 40 80 00 24 | 48 00 00 10 38 60 00 02 |,...@..$|H...8`..|
|00001780| 48 00 01 41 60 00 00 00 | 48 00 00 31 60 00 00 00 |H..A`...|H..1`...|
|00001790| 48 00 01 2d 60 00 00 00 | 38 62 03 60 38 00 00 03 |H..-`...|8b.`8...|
|000017a0| 80 63 00 00 98 03 02 5e | 80 01 00 48 38 21 00 40 |.c.....^|...H8!.@|
|000017b0| 7c 08 03 a6 4e 80 00 20 | 7c 08 02 a6 93 e1 ff fc ||...N.. ||.......|
|000017c0| 93 c1 ff f8 93 a1 ff f4 | 93 81 ff f0 90 01 00 08 |........|........|
|000017d0| 94 21 ff b0 3b e2 03 60 | 3b a0 00 00 48 00 64 01 |.!..;..`|;...H.d.|
|000017e0| 80 41 00 14 80 9f 00 00 | 3b 83 00 14 80 64 02 34 |.A......|;....d.4|
|000017f0| 3c 63 00 01 83 c3 40 20 | 48 00 00 28 80 7f 00 00 |<c....@ |H..(....|
|00001800| 65 6e 6f 77 24 3d 54 49 | 4d 45 24 0d 20 20 20 20 |enow$=TI|ME$. |
|00001810| 69 6e 74 65 72 6e 61 6c | 6c 6f 6f 70 3d 69 6e 74 |internal|loop=int|
|00001820| 65 72 6e 61 6c 6c 6f 6f | 70 2b 31 0d 20 20 20 20 |ernalloo|p+1. |
|00001830| 57 48 49 4c 45 20 74 69 | 6d 65 6f 72 69 67 24 3d |WHILE ti|meorig$=|
|00001840| 74 69 6d 65 6e 6f 77 24 | 0d 20 20 20 20 20 20 74 |timenow$|. t|
|00001850| 69 6d 65 6e 6f 77 24 3d | 54 49 4d 45 24 0d 20 20 |imenow$=|TIME$. |
|00001860| 20 20 57 45 4e 44 0d 20 | 20 20 20 74 69 6d 65 6f | WEND. | timeo|
|00001870| 72 69 67 24 3d 54 49 4d | 45 24 0d 20 20 20 20 74 |rig$=TIM|E$. t|
|00001880| 69 6d 65 6c 65 66 74 24 | 3d 54 49 4d 45 24 0d 20 |imeleft$|=TIME$. |
|00001890| 20 20 20 74 69 6d 65 6c | 65 66 74 3d 74 69 6d 65 | timel|eft=time|
|000018a0| 6c 65 66 74 2d 31 0d 20 | 20 20 20 74 69 6d 65 6c |left-1. | timel|
|000018b0| 65 66 74 24 3d 53 54 52 | 24 28 74 69 6d 65 6c 65 |eft$=STR|$(timele|
|000018c0| 66 74 29 0d 20 20 20 20 | 46 4f 52 20 63 79 63 6c |ft). |FOR cycl|
|000018d0| 65 73 3d 30 20 54 4f 20 | 39 0d 20 20 20 20 20 20 |es=0 TO |9. |
|000018e0| 49 46 20 74 69 6d 65 6c | 65 66 74 3e 36 30 2a 63 |IF timel|eft>60*c|
|000018f0| 79 63 6c 65 73 20 54 48 | 45 4e 20 6d 69 6e 6c 65 |ycles TH|EN minle|
|00001900| 66 74 3d 63 79 63 6c 65 | 73 0d 20 20 20 20 4e 45 |ft=cycle|s. NE|
|00001910| 58 54 0d 20 20 20 20 73 | 65 63 6c 65 66 74 24 3d |XT. s|ecleft$=|
|00001920| 52 49 47 48 54 24 28 74 | 69 6d 65 6c 65 66 74 24 |RIGHT$(t|imeleft$|
|00001930| 2c 31 29 0d 20 20 20 20 | 73 65 63 6c 65 66 74 3d |,1). |secleft=|
|00001940| 56 41 4c 28 73 65 63 6c | 65 66 74 24 29 0d 20 20 |VAL(secl|eft$). |
|00001950| 20 20 74 65 6e 73 65 63 | 6c 65 66 74 3d 28 74 69 | tensec|left=(ti|
|00001960| 6d 65 6c 65 66 74 2d 36 | 30 2a 6d 69 6e 6c 65 66 |meleft-6|0*minlef|
|00001970| 74 2d 73 65 63 6c 65 66 | 74 29 2f 31 30 0d 20 20 |t-seclef|t)/10. |
|00001980| 20 20 0d 20 20 20 20 57 | 49 4e 44 4f 57 20 4f 55 | . W|INDOW OU|
|00001990| 54 50 55 54 20 33 0d 20 | 20 20 20 49 46 20 6d 69 |TPUT 3. | IF mi|
|000019a0| 6e 6c 65 66 74 3d 30 20 | 54 48 45 4e 20 50 49 43 |nleft=0 |THEN PIC|
|000019b0| 54 55 52 45 20 46 49 45 | 4c 44 20 31 2c 20 22 4c |TURE FIE|LD 1, "L|
|000019c0| 43 44 30 22 0d 20 20 20 | 20 49 46 20 6d 69 6e 6c |CD0". | IF minl|
|000019d0| 65 66 74 3d 31 20 54 48 | 45 4e 20 50 49 43 54 55 |eft=1 TH|EN PICTU|
|000019e0| 52 45 20 46 49 45 4c 44 | 20 31 2c 20 22 4c 43 44 |RE FIELD| 1, "LCD|
|000019f0| 31 22 0d 20 20 20 20 49 | 46 20 6d 69 6e 6c 65 66 |1". I|F minlef|
|00001a00| 74 3d 32 20 54 48 45 4e | 20 50 49 43 54 55 52 45 |t=2 THEN| PICTURE|
|00001a10| 20 46 49 45 4c 44 20 31 | 2c 20 22 4c 43 44 32 22 | FIELD 1|, "LCD2"|
|00001a20| 0d 20 20 20 20 49 46 20 | 6d 69 6e 6c 65 66 74 3d |. IF |minleft=|
|00001a30| 33 20 54 48 45 4e 20 50 | 49 43 54 55 52 45 20 46 |3 THEN P|ICTURE F|
|00001a40| 49 45 4c 44 20 31 2c 20 | 22 4c 43 44 33 22 0d 20 |IELD 1, |"LCD3". |
|00001a50| 20 20 20 49 46 20 6d 69 | 6e 6c 65 66 74 3d 34 20 | IF mi|nleft=4 |
|00001a60| 54 48 45 4e 20 50 49 43 | 54 55 52 45 20 46 49 45 |THEN PIC|TURE FIE|
|00001a70| 4c 44 20 31 2c 20 22 4c | 43 44 34 22 0d 20 20 20 |LD 1, "L|CD4". |
|00001a80| 20 49 46 20 6d 69 6e 6c | 65 66 74 3d 35 20 54 48 | IF minl|eft=5 TH|
|00001a90| 45 4e 20 50 49 43 54 55 | 52 45 20 46 49 45 4c 44 |EN PICTU|RE FIELD|
|00001aa0| 20 31 2c 20 22 4c 43 44 | 35 22 0d 20 20 20 20 49 | 1, "LCD|5". I|
|00001ab0| 46 20 6d 69 6e 6c 65 66 | 74 3d 36 20 54 48 45 4e |F minlef|t=6 THEN|
|00001ac0| 20 50 49 43 54 55 52 45 | 20 46 49 45 4c 44 20 31 | PICTURE| FIELD 1|
|00001ad0| 2c 20 22 4c 43 44 36 22 | 0d 20 20 20 20 49 46 20 |, "LCD6"|. IF |
|00001ae0| 6d 69 6e 6c 65 66 74 3d | 37 20 54 48 45 4e 20 50 |minleft=|7 THEN P|
|00001af0| 49 43 54 55 52 45 20 46 | 49 45 4c 44 20 31 2c 20 |ICTURE F|IELD 1, |
|00001b00| 22 4c 43 44 37 22 0d 20 | 20 20 20 49 46 20 6d 69 |"LCD7". | IF mi|
|00001b10| 6e 6c 65 66 74 3d 38 20 | 54 48 45 4e 20 50 49 43 |nleft=8 |THEN PIC|
|00001b20| 54 55 52 45 20 46 49 45 | 4c 44 20 31 2c 20 22 4c |TURE FIE|LD 1, "L|
|00001b30| 43 44 38 22 0d 20 20 20 | 20 49 46 20 6d 69 6e 6c |CD8". | IF minl|
|00001b40| 65 66 74 3d 39 20 54 48 | 45 4e 20 50 49 43 54 55 |eft=9 TH|EN PICTU|
|00001b50| 52 45 20 46 49 45 4c 44 | 20 31 2c 20 22 4c 43 44 |RE FIELD| 1, "LCD|
|00001b60| 39 22 0d 20 20 20 20 0d | 20 20 20 20 49 46 20 74 |9". .| IF t|
|00001b70| 65 6e 73 65 63 6c 65 66 | 74 3d 30 20 54 48 45 4e |enseclef|t=0 THEN|
|00001b80| 20 50 49 43 54 55 52 45 | 20 46 49 45 4c 44 20 33 | PICTURE| FIELD 3|
|00001b90| 2c 20 22 4c 43 44 30 22 | 0d 20 20 20 20 49 46 20 |, "LCD0"|. IF |
|00001ba0| 74 65 6e 73 65 63 6c 65 | 66 74 3d 31 20 54 48 45 |tensecle|ft=1 THE|
|00001bb0| 4e 20 50 49 43 54 55 52 | 45 20 46 49 45 4c 44 20 |N PICTUR|E FIELD |
|00001bc0| 33 2c 20 22 4c 43 44 31 | 22 0d 20 20 20 20 49 46 |3, "LCD1|". IF|
|00001bd0| 20 74 65 6e 73 65 63 6c | 65 66 74 3d 32 20 54 48 | tensecl|eft=2 TH|
|00001be0| 45 4e 20 50 49 43 54 55 | 52 45 20 46 49 45 4c 44 |EN PICTU|RE FIELD|
|00001bf0| 20 33 2c 20 22 4c 43 44 | 32 22 0d 20 20 20 20 49 | 3, "LCD|2". I|
|00001c00| 46 20 74 65 6e 73 65 63 | 6c 65 66 74 3d 33 20 54 |F tensec|left=3 T|
|00001c10| 48 45 4e 20 50 49 43 54 | 55 52 45 20 46 49 45 4c |HEN PICT|URE FIEL|
|00001c20| 44 20 33 2c 20 22 4c 43 | 44 33 22 0d 20 20 20 20 |D 3, "LC|D3". |
|00001c30| 49 46 20 74 65 6e 73 65 | 63 6c 65 66 74 3d 34 20 |IF tense|cleft=4 |
|00001c40| 54 48 45 4e 20 50 49 43 | 54 55 52 45 20 46 49 45 |THEN PIC|TURE FIE|
|00001c50| 4c 44 20 33 2c 20 22 4c | 43 44 34 22 0d 20 20 20 |LD 3, "L|CD4". |
|00001c60| 20 49 46 20 74 65 6e 73 | 65 63 6c 65 66 74 3d 35 | IF tens|ecleft=5|
|00001c70| 20 54 48 45 4e 20 50 49 | 43 54 55 52 45 20 46 49 | THEN PI|CTURE FI|
|00001c80| 45 4c 44 20 33 2c 20 22 | 4c 43 44 35 22 0d 20 20 |ELD 3, "|LCD5". |
|00001c90| 20 20 49 46 20 74 65 6e | 73 65 63 6c 65 66 74 3d | IF ten|secleft=|
|00001ca0| 36 20 54 48 45 4e 20 50 | 49 43 54 55 52 45 20 46 |6 THEN P|ICTURE F|
|00001cb0| 49 45 4c 44 20 33 2c 20 | 22 4c 43 44 36 22 0d 20 |IELD 3, |"LCD6". |
|00001cc0| 20 20 20 49 46 20 74 65 | 6e 73 65 63 6c 65 66 74 | IF te|nsecleft|
|00001cd0| 3d 37 20 54 48 45 4e 20 | 50 49 43 54 55 52 45 20 |=7 THEN |PICTURE |
|00001ce0| 46 49 45 4c 44 20 33 2c | 20 22 4c 43 44 37 22 0d |FIELD 3,| "LCD7".|
|00001cf0| 20 20 20 20 49 46 20 74 | 65 6e 73 65 63 6c 65 66 | IF t|enseclef|
|00001d00| 74 3d 38 20 54 48 45 4e | 20 50 49 43 54 55 52 45 |t=8 THEN| PICTURE|
|00001d10| 20 46 49 45 4c 44 20 33 | 2c 20 22 4c 43 44 38 22 | FIELD 3|, "LCD8"|
|00001d20| 0d 20 20 20 20 49 46 20 | 74 65 6e 73 65 63 6c 65 |. IF |tensecle|
|00001d30| 66 74 3d 39 20 54 48 45 | 4e 20 50 49 43 54 55 52 |ft=9 THE|N PICTUR|
|00001d40| 45 20 46 49 45 4c 44 20 | 33 2c 20 22 4c 43 44 39 |E FIELD |3, "LCD9|
|00001d50| 22 0d 20 20 20 20 0d 20 | 20 20 20 49 46 20 73 65 |". . | IF se|
|00001d60| 63 6c 65 66 74 3d 30 20 | 54 48 45 4e 20 50 49 43 |cleft=0 |THEN PIC|
|00001d70| 54 55 52 45 20 46 49 45 | 4c 44 20 34 2c 20 22 4c |TURE FIE|LD 4, "L|
|00001d80| 43 44 30 22 0d 20 20 20 | 20 49 46 20 73 65 63 6c |CD0". | IF secl|
|00001d90| 65 66 74 3d 31 20 54 48 | 45 4e 20 50 49 43 54 55 |eft=1 TH|EN PICTU|
|00001da0| 52 45 20 46 49 45 4c 44 | 20 34 2c 20 22 4c 43 44 |RE FIELD| 4, "LCD|
|00001db0| 31 22 0d 20 20 20 20 49 | 46 20 73 65 63 6c 65 66 |1". I|F seclef|
|00001dc0| 74 3d 32 20 54 48 45 4e | 20 50 49 43 54 55 52 45 |t=2 THEN| PICTURE|
|00001dd0| 20 46 49 45 4c 44 20 34 | 2c 20 22 4c 43 44 32 22 | FIELD 4|, "LCD2"|
|00001de0| 0d 20 20 20 20 49 46 20 | 73 65 63 6c 65 66 74 3d |. IF |secleft=|
|00001df0| 33 20 54 48 45 4e 20 50 | 49 43 54 55 52 45 20 46 |3 THEN P|ICTURE F|
|00001e00| 49 45 4c 44 20 34 2c 20 | 22 4c 43 44 33 22 0d 20 |IELD 4, |"LCD3". |
|00001e10| 20 20 20 49 46 20 73 65 | 63 6c 65 66 74 3d 34 20 | IF se|cleft=4 |
|00001e20| 54 48 45 4e 20 50 49 43 | 54 55 52 45 20 46 49 45 |THEN PIC|TURE FIE|
|00001e30| 4c 44 20 34 2c 20 22 4c | 43 44 34 22 0d 20 20 20 |LD 4, "L|CD4". |
|00001e40| 20 49 46 20 73 65 63 6c | 65 66 74 3d 35 20 54 48 | IF secl|eft=5 TH|
|00001e50| 45 4e 20 50 49 43 54 55 | 52 45 20 46 49 45 4c 44 |EN PICTU|RE FIELD|
|00001e60| 20 34 2c 20 22 4c 43 44 | 35 22 0d 20 20 20 20 49 | 4, "LCD|5". I|
|00001e70| 46 20 73 65 63 6c 65 66 | 74 3d 36 20 54 48 45 4e |F seclef|t=6 THEN|
|00001e80| 20 50 49 43 54 55 52 45 | 20 46 49 45 4c 44 20 34 | PICTURE| FIELD 4|
|00001e90| 2c 20 22 4c 43 44 36 22 | 0d 20 20 20 20 49 46 20 |, "LCD6"|. IF |
|00001ea0| 73 65 63 6c 65 66 74 3d | 37 20 54 48 45 4e 20 50 |secleft=|7 THEN P|
|00001eb0| 49 43 54 55 52 45 20 46 | 49 45 4c 44 20 34 2c 20 |ICTURE F|IELD 4, |
|00001ec0| 22 4c 43 44 37 22 0d 20 | 20 20 20 49 46 20 73 65 |"LCD7". | IF se|
|00001ed0| 63 6c 65 66 74 3d 38 20 | 54 48 45 4e 20 50 49 43 |cleft=8 |THEN PIC|
|00001ee0| 54 55 52 45 20 46 49 45 | 4c 44 20 34 2c 20 22 4c |TURE FIE|LD 4, "L|
|00001ef0| 43 44 38 22 0d 20 20 20 | 20 49 46 20 73 65 63 6c |CD8". | IF secl|
|00001f00| 00 00 74 3d 39 20 54 48 | 45 4e 20 50 49 43 54 55 |..t=9 TH|EN PICTU|
|00001f10| 52 45 20 46 49 45 4c 44 | 20 34 2c 20 22 4c 43 44 |RE FIELD| 4, "LCD|
|00001f20| 39 22 0d 20 20 20 20 57 | 49 4e 44 4f 57 20 4f 55 |9". W|INDOW OU|
|00001f30| 54 50 55 54 20 32 0d 20 | 20 20 20 0d 20 20 20 20 |TPUT 2. | . |
|00001f40| 49 46 20 74 69 6d 65 6c | 65 66 74 3d 30 20 54 48 |IF timel|eft=0 TH|
|00001f50| 45 4e 20 47 4f 54 4f 20 | 22 6c 6f 73 65 22 0d 20 |EN GOTO |"lose". |
|00001f60| 20 55 4e 54 49 4c 20 69 | 6e 74 65 72 6e 61 6c 6c | UNTIL i|nternall|
|00001f70| 6f 6f 70 3d 68 6f 77 6c | 6f 6e 67 0d 45 4e 44 20 |oop=howl|ong.END |
|00001f80| 46 4e 0d 0d 4c 4f 43 41 | 4c 20 46 4e 20 72 65 74 |FN..LOCA|L FN ret|
|00001f90| 75 72 6e 48 69 74 0d 20 | 20 6c 6f 6f 70 73 3d 6c |urnHit. | loops=l|
|00001fa0| 6f 6f 70 73 2b 31 0d 20 | 20 0d 20 20 57 49 4e 44 |oops+1. | . WIND|
|00001fb0| 4f 57 20 32 0d 20 20 70 | 6c 61 63 65 25 3d 30 0d |OW 2. p|lace%=0.|
|00001fc0| 20 20 6e 75 6d 65 72 61 | 6c 25 3d 30 0d 20 20 46 | numera|l%=0. F|
|00001fd0| 4f 52 20 63 79 63 6c 65 | 73 25 20 3d 20 31 20 54 |OR cycle|s% = 1 T|
|00001fe0| 4f 20 38 0d 20 20 20 20 | 67 6e 75 6d 63 6f 75 6e |O 8. |gnumcoun|
|00001ff0| 74 25 28 63 79 63 6c 65 | 73 25 29 3d 30 0d 20 20 |t%(cycle|s%)=0. |
|00002000| 00 00 00 48 38 21 00 40 | 7c 08 03 a6 4e 80 00 20 |...H8!.@||...N.. |
|00002010| 7c 08 02 a6 93 e1 ff fc | 93 c1 ff f8 93 a1 ff f4 ||.......|........|
|00002020| 90 01 00 08 94 21 ff b0 | 7c 7d 1b 78 57 a0 04 2f |.....!..||}.xW../|
|00002030| 41 82 00 0c 3b e0 00 00 | 48 00 00 0c 57 bf dd 7e |A...;...|H...W..~|
|00002040| 23 ff 00 07 38 60 00 06 | 48 00 4d 99 60 00 00 00 |#...8`..|H.M.`...|
|00002050| 54 7e 07 72 57 e0 18 38 | 7f de 03 78 38 60 00 06 |T~.rW..8|...x8`..|
|00002060| 48 00 4d 81 60 00 00 00 | 7c 1e 18 40 41 82 00 14 |H.M.`...||..@A...|
|00002070| 38 60 00 06 7f c4 f3 78 | 48 00 4b 71 60 00 00 00 |8`.....x|H.Kq`...|
|00002080| 38 62 03 60 80 63 00 00 | b3 a3 02 4e 80 01 00 58 |8b.`.c..|...N...X|
|00002090| 38 21 00 50 7c 08 03 a6 | 83 e1 ff fc 83 c1 ff f8 |8!.P|...|........|
|000020a0| 83 a1 ff f4 4e 80 00 20 | 7c 08 02 a6 93 e1 ff fc |....N.. ||.......|
|000020b0| 90 01 00 08 94 21 ff c0 | 7c 7f 1b 78 38 60 00 07 |.....!..||..x8`..|
|000020c0| 48 00 4d 21 60 00 00 00 | 57 e0 06 3f 41 82 00 0c |H.M!`...|W..?A...|
|000020d0| 60 64 00 01 48 00 00 08 | 54 64 00 3c 38 60 00 07 |`d..H...|Td.<8`..|
|000020e0| 48 00 4c a5 60 00 00 00 | 80 01 00 48 38 21 00 40 |H.L.`...|...H8!.@|
|000020f0| 7c 08 03 a6 83 e1 ff fc | 4e 80 00 20 7c 08 02 a6 ||.......|N.. |...|
|00002100| 93 e1 ff fc 90 01 00 08 | 94 21 ff b0 7c 7f 1b 78 |........|.!..|..x|
|00002110| 38 60 00 06 48 00 4c cd | 60 00 00 00 57 e0 06 3f |8`..H.L.|`...W..?|
|00002120| 41 82 00 0c 60 64 00 40 | 48 00 00 08 54 64 06 b0 |A...`d.@|H...Td..|
|00002130| 38 60 00 06 48 00 4c 51 | 60 00 00 00 38 60 00 1e |8`..H.LQ|`...8`..|
|00002140| 38 81 00 38 48 00 60 e1 | 80 41 00 14 80 01 00 58 |8..8H.`.|.A.....X|
|00002150| 38 21 00 50 7c 08 03 a6 | 83 e1 ff fc 4e 80 00 20 |8!.P|...|....N.. |
|00002160| 7c 08 02 a6 93 e1 ff fc | 93 c1 ff f8 90 01 00 08 ||.......|........|
|00002170| 94 21 ff c0 7c 7e 1b 78 | 7c 9f 23 78 38 60 00 06 |.!..|~.x||.#x8`..|
|00002180| 48 00 4c 61 60 00 00 00 | 57 e0 06 3f 41 82 00 0c |H.La`...|W..?A...|
|00002190| 7c 64 f3 78 48 00 00 08 | 7c 64 f0 78 38 60 00 06 ||d.xH...||d.x8`..|
|000021a0| 48 00 4b e5 60 00 00 00 | 80 01 00 48 38 21 00 40 |H.K.`...|...H8!.@|
|000021b0| 7c 08 03 a6 83 e1 ff fc | 83 c1 ff f8 4e 80 00 20 ||.......|....N.. |
|000021c0| 7c 08 02 a6 93 e1 ff fc | 93 c1 ff f8 90 01 00 08 ||.......|........|
|000021d0| 94 21 ff c0 3b e2 03 60 | 80 7f 00 00 83 c3 02 14 |.!..;..`|........|
|000021e0| 80 63 02 18 48 00 00 c1 | 60 00 00 00 80 9f 00 00 |.c..H...|`.......|
|000021f0| 90 64 02 14 4b ff f8 f5 | 80 7f 00 00 93 c3 02 14 |.d..K...|........|
|00002200| 20 46 49 45 4c 44 20 33 | 31 2c 20 22 52 47 4c 69 | FIELD 3|1, "RGLi|
|00002210| 67 68 74 47 4f 6e 22 0d | 20 20 45 44 49 54 20 46 |ghtGOn".| EDIT F|
|00002220| 49 45 4c 44 20 33 32 2c | 20 22 41 63 74 69 76 65 |IELD 32,| "Active|
|00002230| 22 0d 20 20 45 44 49 54 | 20 46 49 45 4c 44 20 33 |". EDIT| FIELD 3|
|00002240| 34 2c 20 22 43 61 6c 63 | 75 6c 61 74 69 6e 67 20 |4, "Calc|ulating |
|00002250| 46 65 65 64 62 61 63 6b | 22 0d 20 20 46 4e 20 72 |Feedback|". FN r|
|00002260| 75 6e 43 6c 6f 63 6b 28 | 31 29 0d 20 20 57 49 4e |unClock(|1). WIN|
|00002270| 44 4f 57 20 4f 55 54 50 | 55 54 20 34 0d 20 20 50 |DOW OUTP|UT 4. P|
|00002280| 49 43 54 55 52 45 20 46 | 49 45 4c 44 20 33 33 2c |ICTURE F|IELD 33,|
|00002290| 20 22 52 47 4c 69 67 68 | 74 47 4f 6e 22 0d 20 20 | "RGLigh|tGOn". |
|000022a0| 45 44 49 54 20 46 49 45 | 4c 44 20 33 32 2c 20 22 |EDIT FIE|LD 32, "|
|000022b0| 44 6f 6e 65 22 0d 20 20 | 0d 20 20 4c 4f 4e 47 20 |Done". |. LONG |
|000022c0| 49 46 20 6c 6f 6f 70 73 | 3d 32 31 0d 20 20 20 20 |IF loops|=21. |
|000022d0| 57 49 4e 44 4f 57 20 4f | 55 54 50 55 54 20 31 0d |WINDOW O|UTPUT 1.|
|000022e0| 20 20 20 20 6c 6f 6f 70 | 73 3d 31 0d 20 20 20 20 | loop|s=1. |
|000022f0| 72 65 63 79 63 6c 65 73 | 3d 72 65 63 79 63 6c 65 |recycles|=recycle|
|00002300| 73 2b 31 0d 20 20 20 20 | 70 69 63 74 26 3d 46 4e |s+1. |pict&=FN|
|00002310| 20 47 45 54 52 45 53 4f | 55 52 43 45 28 5f 22 50 | GETRESO|URCE(_"P|
|00002320| 49 43 54 22 2c 31 35 38 | 29 0d 20 20 20 20 50 49 |ICT",158|). PI|
|00002330| 43 54 55 52 45 20 28 30 | 2c 30 29 2c 70 69 63 74 |CTURE (0|,0),pict|
|00002340| 26 0d 20 20 20 20 44 45 | 4c 41 59 20 32 30 30 0d |&. DE|LAY 200.|
|00002350| 20 20 20 20 70 69 63 74 | 26 3d 46 4e 20 47 45 54 | pict|&=FN GET|
|00002360| 52 45 53 4f 55 52 43 45 | 28 5f 22 50 49 43 54 22 |RESOURCE|(_"PICT"|
|00002370| 2c 31 35 39 29 0d 20 20 | 20 20 50 49 43 54 55 52 |,159). | PICTUR|
|00002380| 45 20 28 30 2c 30 29 2c | 70 69 63 74 26 0d 20 20 |E (0,0),|pict&. |
|00002390| 20 20 44 45 4c 41 59 20 | 32 30 30 0d 20 20 20 20 | DELAY |200. |
|000023a0| 70 69 63 74 26 3d 46 4e | 20 47 45 54 52 45 53 4f |pict&=FN| GETRESO|
|000023b0| 55 52 43 45 28 5f 22 50 | 49 43 54 22 2c 31 36 30 |URCE(_"P|ICT",160|
|000023c0| 29 0d 20 20 20 20 50 49 | 43 54 55 52 45 20 28 30 |). PI|CTURE (0|
|000023d0| 2c 30 29 2c 70 69 63 74 | 26 0d 20 20 20 20 44 45 |,0),pict|&. DE|
|000023e0| 4c 41 59 20 32 30 30 0d | 20 20 20 20 70 69 63 74 |LAY 200.| pict|
|000023f0| 26 3d 46 4e 20 47 45 54 | 52 45 53 4f 55 52 43 45 |&=FN GET|RESOURCE|
|00002400| 28 5f 22 50 49 43 54 22 | 2c 31 32 38 29 0d 20 20 |(_"PICT"|,128). |
|00002410| 20 20 50 49 43 54 55 52 | 45 20 28 30 2c 30 29 2c | PICTUR|E (0,0),|
|00002420| 70 69 63 74 26 0d 20 20 | 20 20 0d 20 20 20 20 50 |pict&. | . P|
|00002430| 52 49 4e 54 25 28 35 2c | 35 30 29 20 22 47 75 65 |RINT%(5,|50) "Gue|
|00002440| 73 73 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ss | |
|00002450| 20 20 20 20 20 20 20 4e | 20 50 22 0d 20 20 20 20 | N| P". |
|00002460| 43 4f 4c 4f 52 20 5f 7a | 43 79 61 6e 0d 20 20 20 |COLOR _z|Cyan. |
|00002470| 20 46 4f 52 20 63 79 63 | 6c 65 73 3d 31 20 54 4f | FOR cyc|les=1 TO|
|00002480| 20 32 33 0d 20 20 20 20 | 20 20 50 4c 4f 54 20 30 | 23. | PLOT 0|
|00002490| 2c 34 30 2b 31 35 2a 63 | 79 63 6c 65 73 20 54 4f |,40+15*c|ycles TO|
|000024a0| 20 31 34 35 2c 34 30 2b | 31 35 2a 63 79 63 6c 65 | 145,40+|15*cycle|
|000024b0| 73 0d 20 20 20 20 4e 45 | 58 54 0d 20 20 20 20 43 |s. NE|XT. C|
|000024c0| 4f 4c 4f 52 20 5f 7a 42 | 6c 61 63 6b 0d 20 20 45 |OLOR _zB|lack. E|
|000024d0| 4e 44 20 49 46 0d 20 20 | 0d 20 20 46 4f 52 20 63 |ND IF. |. FOR c|
|000024e0| 79 63 6c 65 73 25 20 3d | 20 31 20 54 4f 20 6c 65 |ycles% =| 1 TO le|
|000024f0| 6e 67 74 68 25 0d 20 20 | 20 20 49 46 20 67 75 65 |ngth%. | IF gue|
|00002500| 73 73 25 28 63 79 63 6c | 65 73 25 29 3d 31 20 54 |ss%(cycl|es%)=1 T|
|00002510| 48 45 4e 20 67 6e 75 6d | 63 6f 75 6e 74 25 28 31 |HEN gnum|count%(1|
|00002520| 29 3d 67 6e 75 6d 63 6f | 75 6e 74 25 28 31 29 2b |)=gnumco|unt%(1)+|
|00002530| 31 0d 20 20 4e 45 58 54 | 0d 20 20 0d 20 20 46 4f |1. NEXT|. . FO|
|00002540| 52 20 63 79 63 6c 65 73 | 25 20 3d 20 31 20 54 4f |R cycles|% = 1 TO|
|00002550| 20 6c 65 6e 67 74 68 25 | 0d 20 20 20 20 49 46 20 | length%|. IF |
|00002560| 67 75 65 73 73 25 28 63 | 79 63 6c 65 73 25 29 3d |guess%(c|ycles%)=|
|00002570| 32 20 54 48 45 4e 20 67 | 6e 75 6d 63 6f 75 6e 74 |2 THEN g|numcount|
|00002580| 25 28 32 29 3d 67 6e 75 | 6d 63 6f 75 6e 74 25 28 |%(2)=gnu|mcount%(|
|00002590| 32 29 2b 31 0d 20 20 4e | 45 58 54 0d 20 20 0d 20 |2)+1. N|EXT. . |
|000025a0| 20 46 4f 52 20 63 79 63 | 6c 65 73 25 20 3d 20 31 | FOR cyc|les% = 1|
|000025b0| 20 54 4f 20 6c 65 6e 67 | 74 68 25 0d 20 20 20 20 | TO leng|th%. |
|000025c0| 49 46 20 67 75 65 73 73 | 25 28 63 79 63 6c 65 73 |IF guess|%(cycles|
|000025d0| 25 29 3d 33 20 54 48 45 | 4e 20 67 6e 75 6d 63 6f |%)=3 THE|N gnumco|
|000025e0| 75 6e 74 25 28 33 29 3d | 67 6e 75 6d 63 6f 75 6e |unt%(3)=|gnumcoun|
|000025f0| 74 25 28 33 29 2b 31 0d | 20 20 4e 45 58 54 0d 20 |t%(3)+1.| NEXT. |
|00002600| 20 0d 20 20 46 4f 52 20 | 63 79 63 6c 65 73 25 20 | . FOR |cycles% |
|00002610| 3d 20 31 20 54 4f 20 6c | 65 6e 67 74 68 25 0d 20 |= 1 TO l|ength%. |
|00002620| 20 20 20 49 46 20 67 75 | 65 73 73 25 28 63 79 63 | IF gu|ess%(cyc|
|00002630| 6c 65 73 25 29 3d 34 20 | 54 48 45 4e 20 67 6e 75 |les%)=4 |THEN gnu|
|00002640| 6d 63 6f 75 6e 74 25 28 | 34 29 3d 67 6e 75 6d 63 |mcount%(|4)=gnumc|
|00002650| 6f 75 6e 74 25 28 34 29 | 2b 31 0d 20 20 4e 45 58 |ount%(4)|+1. NEX|
|00002660| 54 0d 20 20 0d 20 20 46 | 4f 52 20 63 79 63 6c 65 |T. . F|OR cycle|
|00002670| 73 25 20 3d 20 31 20 54 | 4f 20 6c 65 6e 67 74 68 |s% = 1 T|O length|
|00002680| 25 0d 20 20 20 20 49 46 | 20 67 75 65 73 73 25 28 |%. IF| guess%(|
|00002690| 63 79 63 6c 65 73 25 29 | 3d 35 20 54 48 45 4e 20 |cycles%)|=5 THEN |
|000026a0| 67 6e 75 6d 63 6f 75 6e | 74 25 28 35 29 3d 67 6e |gnumcoun|t%(5)=gn|
|000026b0| 75 6d 63 6f 75 6e 74 25 | 28 35 29 2b 31 0d 20 20 |umcount%|(5)+1. |
|000026c0| 4e 45 58 54 0d 20 20 0d | 20 20 46 4f 52 20 63 79 |NEXT. .| FOR cy|
|000026d0| 63 6c 65 73 25 20 3d 20 | 31 20 54 4f 20 6c 65 6e |cles% = |1 TO len|
|000026e0| 67 74 68 25 0d 20 20 20 | 20 49 46 20 67 75 65 73 |gth%. | IF gues|
|000026f0| 73 25 28 63 79 63 6c 65 | 73 25 29 3d 36 20 54 48 |s%(cycle|s%)=6 TH|
|00002700| 45 4e 20 67 6e 75 6d 63 | 6f 75 6e 74 25 28 36 29 |EN gnumc|ount%(6)|
|00002710| 3d 67 6e 75 6d 63 6f 75 | 6e 74 25 28 36 29 2b 31 |=gnumcou|nt%(6)+1|
|00002720| 0d 20 20 4e 45 58 54 0d | 20 20 0d 20 20 46 4f 52 |. NEXT.| . FOR|
|00002730| 20 63 79 63 6c 65 73 25 | 20 3d 20 31 20 54 4f 20 | cycles%| = 1 TO |
|00002740| 6c 65 6e 67 74 68 25 0d | 20 20 20 20 49 46 20 67 |length%.| IF g|
|00002750| 75 65 73 73 25 28 63 79 | 63 6c 65 73 25 29 3d 37 |uess%(cy|cles%)=7|
|00002760| 20 54 48 45 4e 20 67 6e | 75 6d 63 6f 75 6e 74 25 | THEN gn|umcount%|
|00002770| 28 37 29 3d 67 6e 75 6d | 63 6f 75 6e 74 25 28 37 |(7)=gnum|count%(7|
|00002780| 29 2b 31 0d 20 20 4e 45 | 58 54 0d 20 20 0d 20 20 |)+1. NE|XT. . |
|00002790| 46 4f 52 20 63 79 63 6c | 65 73 25 20 3d 20 31 20 |FOR cycl|es% = 1 |
|000027a0| 54 4f 20 6c 65 6e 67 74 | 68 25 0d 20 20 20 20 49 |TO lengt|h%. I|
|000027b0| 46 20 67 75 65 73 73 25 | 28 63 79 63 6c 65 73 25 |F guess%|(cycles%|
|000027c0| 29 3d 38 20 54 48 45 4e | 20 67 6e 75 6d 63 6f 75 |)=8 THEN| gnumcou|
|000027d0| 6e 74 25 28 38 29 3d 67 | 6e 75 6d 63 6f 75 6e 74 |nt%(8)=g|numcount|
|000027e0| 25 28 38 29 2b 31 0d 20 | 20 4e 45 58 54 0d 20 20 |%(8)+1. | NEXT. |
|000027f0| 0d 20 20 46 4f 52 20 63 | 79 63 6c 65 73 25 20 3d |. FOR c|ycles% =|
|00002800| 20 31 20 54 4f 20 6c 65 | 6e 67 74 68 25 0d 20 20 | 1 TO le|ngth%. |
|00002810| 20 20 49 46 20 67 75 65 | 73 73 25 28 63 79 63 6c | IF gue|ss%(cycl|
|00002820| 65 73 25 29 3d 39 20 54 | 48 45 4e 20 67 6e 75 6d |es%)=9 T|HEN gnum|
|00002830| 63 6f 75 6e 74 25 28 39 | 29 3d 67 6e 75 6d 63 6f |count%(9|)=gnumco|
|00002840| 75 6e 74 25 28 39 29 2b | 31 0d 20 20 4e 45 58 54 |unt%(9)+|1. NEXT|
|00002850| 0d 20 20 0d 20 20 46 4f | 52 20 63 79 63 6c 65 73 |. . FO|R cycles|
|00002860| 20 3d 20 31 20 54 4f 20 | 73 65 6e 73 69 74 69 76 | = 1 TO |sensitiv|
|00002870| 69 74 79 0d 20 20 20 20 | 72 6e 75 6d 63 6f 75 6e |ity. |rnumcoun|
|00002880| 74 25 28 63 79 63 6c 65 | 73 29 3d 6e 75 6d 63 6f |t%(cycle|s)=numco|
|00002890| 75 6e 74 25 28 63 79 63 | 6c 65 73 29 2d 67 6e 75 |unt%(cyc|les)-gnu|
|000028a0| 6d 63 6f 75 6e 74 25 28 | 63 79 63 6c 65 73 29 0d |mcount%(|cycles).|
|000028b0| 20 20 20 20 49 46 20 72 | 6e 75 6d 63 6f 75 6e 74 | IF r|numcount|
|000028c0| 25 28 63 79 63 6c 65 73 | 29 3c 30 20 54 48 45 4e |%(cycles|)<0 THEN|
|000028d0| 20 72 6e 75 6d 63 6f 75 | 6e 74 25 28 63 79 63 6c | rnumcou|nt%(cycl|
|000028e0| 65 73 29 3d 30 0d 20 20 | 4e 45 58 54 0d 20 20 0d |es)=0. |NEXT. .|
|000028f0| 20 20 46 4f 52 20 63 79 | 63 6c 65 73 3d 31 20 54 | FOR cy|cles=1 T|
|00002900| 00 00 73 65 6e 73 69 74 | 69 76 69 74 79 0d 20 20 |..sensit|ivity. |
|00002910| 20 20 6e 75 6d 65 72 61 | 6c 25 3d 6e 75 6d 65 72 | numera|l%=numer|
|00002920| 61 6c 25 2b 72 6e 75 6d | 63 6f 75 6e 74 25 28 63 |al%+rnum|count%(c|
|00002930| 79 63 6c 65 73 29 0d 20 | 20 4e 45 58 54 0d 20 20 |ycles). | NEXT. |
|00002940| 0d 20 20 46 4f 52 20 63 | 79 63 6c 65 73 20 3d 20 |. FOR c|ycles = |
|00002950| 31 20 54 4f 20 6c 65 6e | 67 74 68 25 0d 4c 4f 4e |1 TO len|gth%.LON|
|00002960| 47 20 49 46 20 6e 75 6d | 25 28 63 79 63 6c 65 73 |G IF num|%(cycles|
|00002970| 29 3d 67 75 65 73 73 25 | 28 63 79 63 6c 65 73 29 |)=guess%|(cycles)|
|00002980| 3a 20 58 45 4c 53 45 3a | 20 70 6c 61 63 65 3d 70 |: XELSE:| place=p|
|00002990| 6c 61 63 65 2b 31 3a 20 | 45 4e 44 20 49 46 0d 20 |lace+1: |END IF. |
|000029a0| 20 4e 45 58 54 0d 20 20 | 0d 20 20 6e 75 6d 65 72 | NEXT. |. numer|
|000029b0| 61 6c 25 3d 6c 65 6e 67 | 74 68 25 2d 6e 75 6d 65 |al%=leng|th%-nume|
|000029c0| 72 61 6c 25 0d 20 20 70 | 6c 61 63 65 25 3d 6c 65 |ral%. p|lace%=le|
|000029d0| 6e 67 74 68 25 2d 70 6c | 61 63 65 25 0d 20 20 0d |ngth%-pl|ace%. .|
|000029e0| 20 20 67 75 65 73 73 73 | 74 72 24 3d 22 22 0d 20 | guesss|tr$="". |
|000029f0| 20 46 4f 52 20 63 79 63 | 6c 65 73 3d 31 20 54 4f | FOR cyc|les=1 TO|
|00002a00| 00 00 02 4c 28 00 00 02 | 4d 81 00 20 54 60 06 3f |...L(...|M.. T`.?|
|00002a10| 38 00 00 00 40 82 00 08 | 38 00 00 01 7c 03 03 78 |8...@...|8...|..x|
|00002a20| 4e 80 00 20 38 62 03 60 | 80 63 00 00 80 63 02 34 |N.. 8b.`|.c...c.4|
|00002a30| 3c 63 00 01 80 03 40 20 | 54 00 01 4b 7c 00 00 26 |<c....@ |T..K|..&|
|00002a40| 54 00 1f fe 68 03 00 01 | 4e 80 00 20 38 a2 03 60 |T...h...|N.. 8..`|
|00002a50| 38 60 00 00 80 85 00 00 | a0 04 02 48 2c 00 00 06 |8`......|...H,...|
|00002a60| 41 82 00 74 40 80 00 70 | 2c 00 00 02 40 80 00 0c |A..t@..p|,...@...|
|00002a70| 2c 00 00 00 48 00 00 60 | 88 04 02 6d 28 00 00 00 |,...H..`|...m(...|
|00002a80| 41 82 00 34 80 84 02 34 | 7c 65 1b 78 80 04 00 34 |A..4...4||e.x...4|
|00002a90| 54 00 06 f7 41 82 00 14 | 3c 64 00 01 80 03 40 20 |T...A...|<d....@ |
|00002aa0| 54 00 01 8d 40 82 00 08 | 38 a0 00 01 7c a3 2b 78 |T...@...|8...|.+x|
|00002ab0| 4e 80 00 20 80 64 02 34 | 3c 63 00 01 80 03 40 20 |N.. .d.4|<c....@ |
|00002ac0| 54 00 01 8d 7c 00 00 26 | 54 00 1f fe 68 03 00 01 |T...|..&|T...h...|
|00002ad0| 4e 80 00 20 80 65 00 00 | 80 63 02 34 3c 63 00 01 |N.. .e..|.c.4<c..|
|00002ae0| 80 03 40 20 54 00 01 4b | 7c 00 00 26 54 00 1f fe |..@ T..K||..&T...|
|00002af0| 68 03 00 01 4e 80 00 20 | 38 82 03 60 80 64 00 00 |h...N.. |8..`.d..|
|00002b00| a0 03 02 48 2c 00 00 04 | 41 82 00 88 40 80 00 14 |...H,...|A...@...|
|00002b10| 2c 00 00 02 40 80 00 18 | 2c 00 00 00 48 00 00 90 |,...@...|,...H...|
|00002b20| 2c 00 00 06 41 82 00 88 | 40 80 00 84 80 64 00 00 |,...A...|@....d..|
|00002b30| 88 03 02 6d 28 00 00 00 | 41 82 00 34 80 63 02 34 |...m(...|A..4.c.4|
|00002b40| 38 a0 00 00 80 03 00 34 | 54 00 06 f7 40 82 00 18 |8......4|T...@...|
|00002b50| 3c 63 00 01 80 03 40 20 | 54 00 01 8d 41 82 00 08 |<c....@ |T...A...|
|00002b60| 38 a0 00 01 7c a3 2b 78 | 48 00 00 64 80 63 02 34 |8...|.+x|H..d.c.4|
|00002b70| 3c 00 02 00 3c 63 00 01 | 80 63 40 20 54 63 01 8e |<...<c..|.c@ Tc..|
|00002b80| 7c 03 00 40 7c 00 00 26 | 54 03 1f fe 48 00 00 40 ||..@|..&|T...H..@|
|00002b90| 80 63 02 34 3c 63 00 01 | 80 03 40 20 54 00 01 cf |.c.4<c..|..@ T...|
|00002ba0| 7c 00 00 26 54 03 1f fe | 48 00 00 24 80 64 00 00 ||..&T...|H..$.d..|
|00002bb0| 80 63 02 34 3c 63 00 01 | 80 03 40 20 54 00 01 8d |.c.4<c..|..@ T...|
|00002bc0| 7c 00 00 26 54 00 1f fe | 68 03 00 01 54 60 06 3f ||..&T...|h...T`.?|
|00002bd0| 38 a0 00 00 40 82 00 14 | 80 64 00 00 80 03 02 24 |8...@...|.d.....$|
|00002be0| 54 00 06 31 41 82 00 08 | 38 a0 00 01 7c a3 2b 78 |T..1A...|8...|.+x|
|00002bf0| 4e 80 00 20 38 a2 03 60 | 38 80 00 00 80 65 00 00 |N.. 8..`|8....e..|
|00002c00| 20 41 4e 44 20 70 6c 61 | 63 65 25 3d 6c 65 6e 67 | AND pla|ce%=leng|
|00002c10| 74 68 25 20 54 48 45 4e | 20 77 69 6e 79 65 74 3d |th% THEN| winyet=|
|00002c20| 31 0d 20 20 0d 20 20 45 | 44 49 54 20 46 49 45 4c |1. . E|DIT FIEL|
|00002c30| 44 20 33 34 2c 20 22 53 | 74 61 6e 64 62 79 22 0d |D 34, "S|tandby".|
|00002c40| 20 20 57 49 4e 44 4f 57 | 20 4f 55 54 50 55 54 20 | WINDOW| OUTPUT |
|00002c50| 32 0d 45 4e 44 20 46 4e | 0d 0d 4c 4f 43 41 4c 20 |2.END FN|..LOCAL |
|00002c60| 46 4e 20 63 68 61 6e 67 | 65 44 69 67 69 74 28 76 |FN chang|eDigit(v|
|00002c70| 61 72 2c 20 70 66 2c 20 | 62 75 74 2c 20 63 68 61 |ar, pf, |but, cha|
|00002c80| 6e 67 65 29 0d 20 20 62 | 75 74 74 6f 6e 68 69 74 |nge). b|uttonhit|
|00002c90| 3d 62 75 74 0d 20 20 76 | 61 72 3d 76 61 72 2b 63 |=but. v|ar=var+c|
|00002ca0| 68 61 6e 67 65 0d 20 20 | 49 46 20 76 61 72 3d 30 |hange. |IF var=0|
|00002cb0| 20 54 48 45 4e 20 50 49 | 43 54 55 52 45 20 46 49 | THEN PI|CTURE FI|
|00002cc0| 45 4c 44 20 70 66 2c 20 | 22 4c 43 44 30 22 0d 20 |ELD pf, |"LCD0". |
|00002cd0| 20 49 46 20 76 61 72 3d | 31 20 54 48 45 4e 20 50 | IF var=|1 THEN P|
|00002ce0| 49 43 54 55 52 45 20 46 | 49 45 4c 44 20 70 66 2c |ICTURE F|IELD pf,|
|00002cf0| 20 22 4c 43 44 31 22 0d | 20 20 49 46 20 76 61 72 | "LCD1".| IF var|
|00002d00| 3d 32 20 54 48 45 4e 20 | 50 49 43 54 55 52 45 20 |=2 THEN |PICTURE |
|00002d10| 46 49 45 4c 44 20 70 66 | 2c 20 22 4c 43 44 32 22 |FIELD pf|, "LCD2"|
|00002d20| 0d 20 20 49 46 20 76 61 | 72 3d 33 20 54 48 45 4e |. IF va|r=3 THEN|
|00002d30| 20 50 49 43 54 55 52 45 | 20 46 49 45 4c 44 20 70 | PICTURE| FIELD p|
|00002d40| 66 2c 20 22 4c 43 44 33 | 22 0d 20 20 49 46 20 76 |f, "LCD3|". IF v|
|00002d50| 61 72 3d 34 20 54 48 45 | 4e 20 50 49 43 54 55 52 |ar=4 THE|N PICTUR|
|00002d60| 45 20 46 49 45 4c 44 20 | 70 66 2c 20 22 4c 43 44 |E FIELD |pf, "LCD|
|00002d70| 34 22 0d 20 20 49 46 20 | 76 61 72 3d 35 20 54 48 |4". IF |var=5 TH|
|00002d80| 45 4e 20 50 49 43 54 55 | 52 45 20 46 49 45 4c 44 |EN PICTU|RE FIELD|
|00002d90| 20 70 66 2c 20 22 4c 43 | 44 35 22 0d 20 20 49 46 | pf, "LC|D5". IF|
|00002da0| 20 76 61 72 3d 36 20 54 | 48 45 4e 20 50 49 43 54 | var=6 T|HEN PICT|
|00002db0| 55 52 45 20 46 49 45 4c | 44 20 70 66 2c 20 22 4c |URE FIEL|D pf, "L|
|00002dc0| 43 44 36 22 0d 20 20 49 | 46 20 76 61 72 3d 37 20 |CD6". I|F var=7 |
|00002dd0| 54 48 45 4e 20 50 49 43 | 54 55 52 45 20 46 49 45 |THEN PIC|TURE FIE|
|00002de0| 4c 44 20 70 66 2c 20 22 | 4c 43 44 37 22 0d 20 20 |LD pf, "|LCD7". |
|00002df0| 49 46 20 76 61 72 3d 38 | 20 54 48 45 4e 20 50 49 |IF var=8| THEN PI|
|00002e00| 43 54 55 52 45 20 46 49 | 45 4c 44 20 70 66 2c 20 |CTURE FI|ELD pf, |
|00002e10| 22 4c 43 44 38 22 0d 20 | 20 49 46 20 76 61 72 3d |"LCD8". | IF var=|
|00002e20| 39 20 54 48 45 4e 20 50 | 49 43 54 55 52 45 20 46 |9 THEN P|ICTURE F|
|00002e30| 49 45 4c 44 20 70 66 2c | 20 22 4c 43 44 39 22 0d |IELD pf,| "LCD9".|
|00002e40| 45 4e 44 20 46 4e 20 3d | 20 76 61 72 0d 0d 4c 4f |END FN =| var..LO|
|00002e50| 43 41 4c 20 46 4e 20 64 | 69 66 66 69 63 75 6c 74 |CAL FN d|ifficult|
|00002e60| 79 0d 20 20 74 69 6d 65 | 4c 69 6d 69 74 3d 28 36 |y. time|Limit=(6|
|00002e70| 30 2a 74 6c 69 6d 69 74 | 6d 69 6e 29 2b 28 31 30 |0*tlimit|min)+(10|
|00002e80| 2a 74 6c 69 6d 69 74 74 | 73 65 63 29 2b 74 6c 69 |*tlimitt|sec)+tli|
|00002e90| 6d 69 74 73 65 63 0d 20 | 20 64 69 66 66 69 63 75 |mitsec. | difficu|
|00002ea0| 6c 74 79 25 3d 32 34 2a | 28 6c 65 6e 67 74 68 25 |lty%=24*|(length%|
|00002eb0| 5e 34 29 2f 74 69 6d 65 | 4c 69 6d 69 74 0d 20 20 |^4)/time|Limit. |
|00002ec0| 64 69 66 66 69 63 75 6c | 74 79 24 3d 53 54 52 24 |difficul|ty$=STR$|
|00002ed0| 28 64 69 66 66 69 63 75 | 6c 74 79 29 0d 20 20 64 |(difficu|lty). d|
|00002ee0| 69 66 66 69 63 75 6c 74 | 79 24 3d 52 49 47 48 54 |ifficult|y$=RIGHT|
|00002ef0| 24 28 64 69 66 66 69 63 | 75 6c 74 79 24 2c 4c 45 |$(diffic|ulty$,LE|
|00002f00| 4e 28 64 69 66 66 69 63 | 75 6c 74 79 24 29 2d 31 |N(diffic|ulty$)-1|
|00002f10| 29 0d 20 20 49 46 20 4c | 45 4e 28 64 69 66 66 69 |). IF L|EN(diffi|
|00002f20| 63 75 6c 74 79 24 29 3d | 34 20 54 48 45 4e 20 64 |culty$)=|4 THEN d|
|00002f30| 74 68 6f 3d 56 41 4c 28 | 4c 45 46 54 24 28 64 69 |tho=VAL(|LEFT$(di|
|00002f40| 66 66 69 63 75 6c 74 79 | 24 2c 31 29 29 0d 20 20 |fficulty|$,1)). |
|00002f50| 49 46 20 4c 45 4e 28 64 | 69 66 66 69 63 75 6c 74 |IF LEN(d|ifficult|
|00002f60| 79 24 29 3d 34 20 54 48 | 45 4e 20 64 68 75 6e 3d |y$)=4 TH|EN dhun=|
|00002f70| 56 41 4c 28 52 49 47 48 | 54 24 28 4c 45 46 54 24 |VAL(RIGH|T$(LEFT$|
|00002f80| 28 64 69 66 66 69 63 75 | 6c 74 79 24 2c 32 29 2c |(difficu|lty$,2),|
|00002f90| 31 29 29 0d 20 20 49 46 | 20 4c 45 4e 28 64 69 66 |1)). IF| LEN(dif|
|00002fa0| 66 69 63 75 6c 74 79 24 | 29 3d 34 20 54 48 45 4e |ficulty$|)=4 THEN|
|00002fb0| 20 64 74 65 6e 3d 56 41 | 4c 28 4c 45 46 54 24 28 | dten=VA|L(LEFT$(|
|00002fc0| 52 49 47 48 54 24 28 64 | 69 66 66 69 63 75 6c 74 |RIGHT$(d|ifficult|
|00002fd0| 79 24 2c 32 29 2c 31 29 | 29 0d 20 20 49 46 20 4c |y$,2),1)|). IF L|
|00002fe0| 45 4e 28 64 69 66 66 69 | 63 75 6c 74 79 24 29 3d |EN(diffi|culty$)=|
|00002ff0| 33 20 54 48 45 4e 20 64 | 74 68 6f 3d 30 0d 20 20 |3 THEN d|tho=0. |
|00003000| 49 46 20 4c 45 4e 28 64 | 69 66 66 69 63 75 6c 74 |IF LEN(d|ifficult|
|00003010| 79 24 29 3d 33 20 54 48 | 45 4e 20 64 68 75 6e 3d |y$)=3 TH|EN dhun=|
|00003020| 56 41 4c 28 4c 45 46 54 | 24 28 64 69 66 66 69 63 |VAL(LEFT|$(diffic|
|00003030| 75 6c 74 79 24 2c 31 29 | 29 0d 20 20 49 46 20 4c |ulty$,1)|). IF L|
|00003040| 45 4e 28 64 69 66 66 69 | 63 75 6c 74 79 24 29 3d |EN(diffi|culty$)=|
|00003050| 33 20 54 48 45 4e 20 64 | 74 65 6e 3d 56 41 4c 28 |3 THEN d|ten=VAL(|
|00003060| 52 49 47 48 54 24 28 4c | 45 46 54 24 28 64 69 66 |RIGHT$(L|EFT$(dif|
|00003070| 66 69 63 75 6c 74 79 24 | 2c 32 29 2c 31 29 29 0d |ficulty$|,2),1)).|
|00003080| 20 20 49 46 20 4c 45 4e | 28 64 69 66 66 69 63 75 | IF LEN|(difficu|
|00003090| 6c 74 79 24 29 3d 32 20 | 54 48 45 4e 20 64 74 68 |lty$)=2 |THEN dth|
|000030a0| 6f 3d 30 0d 20 20 49 46 | 20 4c 45 4e 28 64 69 66 |o=0. IF| LEN(dif|
|000030b0| 66 69 63 75 6c 74 79 24 | 29 3d 32 20 54 48 45 4e |ficulty$|)=2 THEN|
|000030c0| 20 64 68 75 6e 3d 30 0d | 20 20 49 46 20 4c 45 4e | dhun=0.| IF LEN|
|000030d0| 28 64 69 66 66 69 63 75 | 6c 74 79 24 29 3d 32 20 |(difficu|lty$)=2 |
|000030e0| 54 48 45 4e 20 64 74 65 | 6e 3d 56 41 4c 28 4c 45 |THEN dte|n=VAL(LE|
|000030f0| 46 54 24 28 64 69 66 66 | 69 63 75 6c 74 79 24 2c |FT$(diff|iculty$,|
|00003100| 31 29 29 0d 20 20 64 6f | 6e 65 3d 56 41 4c 28 52 |1)). do|ne=VAL(R|
|00003110| 49 47 48 54 24 28 64 69 | 66 66 69 63 75 6c 74 79 |IGHT$(di|fficulty|
|00003120| 24 2c 31 29 29 0d 20 20 | 0d 20 20 0d 20 20 49 46 |$,1)). |. . IF|
|00003130| 20 64 74 68 6f 3d 30 20 | 54 48 45 4e 20 50 49 43 | dtho=0 |THEN PIC|
|00003140| 54 55 52 45 20 46 49 45 | 4c 44 20 32 31 2c 20 22 |TURE FIE|LD 21, "|
|00003150| 4c 43 44 30 22 0d 20 20 | 49 46 20 64 74 68 6f 3d |LCD0". |IF dtho=|
|00003160| 31 20 54 48 45 4e 20 50 | 49 43 54 55 52 45 20 46 |1 THEN P|ICTURE F|
|00003170| 49 45 4c 44 20 32 31 2c | 20 22 4c 43 44 31 22 0d |IELD 21,| "LCD1".|
|00003180| 20 20 49 46 20 64 74 68 | 6f 3d 32 20 54 48 45 4e | IF dth|o=2 THEN|
|00003190| 20 50 49 43 54 55 52 45 | 20 46 49 45 4c 44 20 32 | PICTURE| FIELD 2|
|000031a0| 31 2c 20 22 4c 43 44 32 | 22 0d 20 20 49 46 20 64 |1, "LCD2|". IF d|
|000031b0| 74 68 6f 3d 33 20 54 48 | 45 4e 20 50 49 43 54 55 |tho=3 TH|EN PICTU|
|000031c0| 52 45 20 46 49 45 4c 44 | 20 32 31 2c 20 22 4c 43 |RE FIELD| 21, "LC|
|000031d0| 44 33 22 0d 20 20 49 46 | 20 64 74 68 6f 3d 34 20 |D3". IF| dtho=4 |
|000031e0| 54 48 45 4e 20 50 49 43 | 54 55 52 45 20 46 49 45 |THEN PIC|TURE FIE|
|000031f0| 4c 44 20 32 31 2c 20 22 | 4c 43 44 34 22 0d 20 20 |LD 21, "|LCD4". |
|00003200| 49 46 20 64 74 68 6f 3d | 35 20 54 48 45 4e 20 50 |IF dtho=|5 THEN P|
|00003210| 49 43 54 55 52 45 20 46 | 49 45 4c 44 20 32 31 2c |ICTURE F|IELD 21,|
|00003220| 20 22 4c 43 44 35 22 0d | 20 20 49 46 20 64 74 68 | "LCD5".| IF dth|
|00003230| 6f 3d 36 20 54 48 45 4e | 20 50 49 43 54 55 52 45 |o=6 THEN| PICTURE|
|00003240| 20 46 49 45 4c 44 20 32 | 31 2c 20 22 4c 43 44 36 | FIELD 2|1, "LCD6|
|00003250| 22 0d 20 20 49 46 20 64 | 74 68 6f 3d 37 20 54 48 |". IF d|tho=7 TH|
|00003260| 45 4e 20 50 49 43 54 55 | 52 45 20 46 49 45 4c 44 |EN PICTU|RE FIELD|
|00003270| 20 32 31 2c 20 22 4c 43 | 44 37 22 0d 20 20 49 46 | 21, "LC|D7". IF|
|00003280| 20 64 74 68 6f 3d 38 20 | 54 48 45 4e 20 50 49 43 | dtho=8 |THEN PIC|
|00003290| 54 55 52 45 20 46 49 45 | 4c 44 20 32 31 2c 20 22 |TURE FIE|LD 21, "|
|000032a0| 4c 43 44 38 22 0d 20 20 | 49 46 20 64 74 68 6f 3d |LCD8". |IF dtho=|
|000032b0| 39 20 54 48 45 4e 20 50 | 49 43 54 55 52 45 20 46 |9 THEN P|ICTURE F|
|000032c0| 49 45 4c 44 20 32 31 2c | 20 22 4c 43 44 39 22 0d |IELD 21,| "LCD9".|
|000032d0| 20 20 0d 20 20 49 46 20 | 64 68 75 6e 3d 30 20 54 | . IF |dhun=0 T|
|000032e0| 48 45 4e 20 50 49 43 54 | 55 52 45 20 46 49 45 4c |HEN PICT|URE FIEL|
|000032f0| 44 20 32 32 2c 20 22 4c | 43 44 30 22 0d 20 20 49 |D 22, "L|CD0". I|
|00003300| 00 00 64 68 75 6e 3d 31 | 20 54 48 45 4e 20 50 49 |..dhun=1| THEN PI|
|00003310| 43 54 55 52 45 20 46 49 | 45 4c 44 20 32 32 2c 20 |CTURE FI|ELD 22, |
|00003320| 22 4c 43 44 31 22 0d 20 | 20 49 46 20 64 68 75 6e |"LCD1". | IF dhun|
|00003330| 3d 32 20 54 48 45 4e 20 | 50 49 43 54 55 52 45 20 |=2 THEN |PICTURE |
|00003340| 46 49 45 4c 44 20 32 32 | 2c 20 22 4c 43 44 32 22 |FIELD 22|, "LCD2"|
|00003350| 0d 20 20 49 46 20 64 68 | 75 6e 3d 33 20 54 48 45 |. IF dh|un=3 THE|
|00003360| 4e 20 50 49 43 54 55 52 | 45 20 46 49 45 4c 44 20 |N PICTUR|E FIELD |
|00003370| 32 32 2c 20 22 4c 43 44 | 33 22 0d 20 20 49 46 20 |22, "LCD|3". IF |
|00003380| 64 68 75 6e 3d 34 20 54 | 48 45 4e 20 50 49 43 54 |dhun=4 T|HEN PICT|
|00003390| 55 52 45 20 46 49 45 4c | 44 20 32 32 2c 20 22 4c |URE FIEL|D 22, "L|
|000033a0| 43 44 34 22 0d 20 20 49 | 46 20 64 68 75 6e 3d 35 |CD4". I|F dhun=5|
|000033b0| 20 54 48 45 4e 20 50 49 | 43 54 55 52 45 20 46 49 | THEN PI|CTURE FI|
|000033c0| 45 4c 44 20 32 32 2c 20 | 22 4c 43 44 35 22 0d 20 |ELD 22, |"LCD5". |
|000033d0| 20 49 46 20 64 68 75 6e | 3d 36 20 54 48 45 4e 20 | IF dhun|=6 THEN |
|000033e0| 50 49 43 54 55 52 45 20 | 46 49 45 4c 44 20 32 32 |PICTURE |FIELD 22|
|000033f0| 2c 20 22 4c 43 44 36 22 | 0d 20 20 49 46 20 64 68 |, "LCD6"|. IF dh|
|00003400| 00 00 00 34 70 60 00 0a | 40 82 00 10 60 60 00 0a |...4p`..|@...``..|
|00003410| 90 05 00 34 7c 00 06 ac | 80 64 00 00 38 00 00 01 |...4|...|.d..8...|
|00003420| 98 03 02 62 80 64 00 00 | 80 63 02 34 80 03 00 34 |...b.d..|.c.4...4|
|00003430| 60 00 00 0a 90 03 00 34 | 80 64 00 00 80 63 02 34 |`......4|.d...c.4|
|00003440| 80 03 00 34 54 00 07 76 | 90 03 00 34 80 64 00 00 |...4T..v|...4.d..|
|00003450| 80 03 02 24 60 00 00 04 | 90 03 02 24 4e 80 00 20 |...$`...|...$N.. |
|00003460| 88 05 02 6d 28 00 00 00 | 41 82 00 2c 88 05 02 62 |...m(...|A..,...b|
|00003470| 28 00 00 00 41 82 00 20 | 38 00 00 00 98 05 02 62 |(...A.. |8......b|
|00003480| 80 64 00 00 80 63 02 34 | 80 03 00 34 60 00 00 0a |.d...c.4|...4`...|
|00003490| 90 03 00 34 80 64 00 00 | 80 03 02 24 54 00 07 b8 |...4.d..|...$T...|
|000034a0| 90 03 02 24 4e 80 00 20 | 7c 08 02 a6 93 e1 ff fc |...$N.. ||.......|
|000034b0| 93 c1 ff f8 93 a1 ff f4 | 90 01 00 08 94 21 ff b0 |........|.....!..|
|000034c0| 7c 7d 1b 78 57 a0 06 3f | 3b e2 03 60 41 82 00 0c ||}.xW..?|;..`A...|
|000034d0| 38 80 00 40 48 00 00 08 | 38 80 00 00 80 7f 00 00 |8..@H...|8.......|
|000034e0| 80 03 02 24 54 00 06 72 | 7c 00 22 79 41 82 02 74 |...$T..r||."yA..t|
|000034f0| 38 60 00 01 48 00 44 ed | 60 00 00 00 57 a0 06 3f |8`..H.D.|`...W..?|
|00003500| 7c 7e 1b 78 41 82 01 64 | 80 9f 00 00 88 04 02 60 ||~.xA..d|.......`|
|00003510| 28 00 00 00 40 82 00 54 | 88 04 02 5f 28 00 00 00 |(...@..T|..._(...|
|00003520| 41 82 00 48 88 04 02 59 | 28 00 00 00 41 82 00 28 |A..H...Y|(...A..(|
|00003530| 57 c0 05 29 41 82 00 0c | 38 00 00 01 48 00 00 08 |W..)A...|8...H...|
|00003540| 38 00 00 00 80 7f 00 00 | 57 de 05 66 98 03 02 60 |8.......|W..f...`|
|00003550| 48 00 00 18 88 64 02 61 | 38 00 00 00 98 64 02 60 |H....d.a|8....d.`|
|00003560| 80 7f 00 00 98 03 02 61 | 80 7f 00 00 88 03 02 63 |.......a|.......c|
|00003570| 28 00 00 00 40 82 00 30 | 88 03 02 5d 28 00 00 00 |(...@..0|...](...|
|00003580| 41 82 00 24 57 c0 05 6b | 41 82 00 0c 38 00 00 01 |A..$W..k|A...8...|
|00003590| 48 00 00 08 38 00 00 00 | 80 7f 00 00 57 de 05 a8 |H...8...|....W...|
|000035a0| 98 03 02 63 80 7f 00 00 | 88 03 02 64 28 00 00 00 |...c....|...d(...|
|000035b0| 40 82 00 a4 3b a0 00 01 | 9b a3 02 64 80 7f 00 00 |@...;...|...d....|
|000035c0| 38 80 00 00 80 63 02 0c | 4b ff d4 5d 4b ff fa 05 |8....c..|K..]K...|
|000035d0| 54 60 06 3f 41 82 00 28 | 80 7f 00 00 38 80 00 00 |T`.?A..(|....8...|
|000035e0| 88 03 02 5b 28 00 00 00 | 40 82 00 08 7f a4 eb 78 |...[(...|@......x|
|000035f0| 80 7f 00 00 98 83 02 65 | 48 00 00 48 80 7f 00 00 |.......e|H..H....|
|00003600| 54 48 45 4e 20 50 49 43 | 54 55 52 45 20 46 49 45 |THEN PIC|TURE FIE|
|00003610| 4c 44 20 32 33 2c 20 22 | 4c 43 44 39 22 0d 20 20 |LD 23, "|LCD9". |
|00003620| 0d 20 20 49 46 20 64 6f | 6e 65 3d 30 20 54 48 45 |. IF do|ne=0 THE|
|00003630| 4e 20 50 49 43 54 55 52 | 45 20 46 49 45 4c 44 20 |N PICTUR|E FIELD |
|00003640| 32 34 2c 20 22 4c 43 44 | 30 22 0d 20 20 49 46 20 |24, "LCD|0". IF |
|00003650| 64 6f 6e 65 3d 31 20 54 | 48 45 4e 20 50 49 43 54 |done=1 T|HEN PICT|
|00003660| 55 52 45 20 46 49 45 4c | 44 20 32 34 2c 20 22 4c |URE FIEL|D 24, "L|
|00003670| 43 44 31 22 0d 20 20 49 | 46 20 64 6f 6e 65 3d 32 |CD1". I|F done=2|
|00003680| 20 54 48 45 4e 20 50 49 | 43 54 55 52 45 20 46 49 | THEN PI|CTURE FI|
|00003690| 45 4c 44 20 32 34 2c 20 | 22 4c 43 44 32 22 0d 20 |ELD 24, |"LCD2". |
|000036a0| 20 49 46 20 64 6f 6e 65 | 3d 33 20 54 48 45 4e 20 | IF done|=3 THEN |
|000036b0| 50 49 43 54 55 52 45 20 | 46 49 45 4c 44 20 32 34 |PICTURE |FIELD 24|
|000036c0| 2c 20 22 4c 43 44 33 22 | 0d 20 20 49 46 20 64 6f |, "LCD3"|. IF do|
|000036d0| 6e 65 3d 34 20 54 48 45 | 4e 20 50 49 43 54 55 52 |ne=4 THE|N PICTUR|
|000036e0| 45 20 46 49 45 4c 44 20 | 32 34 2c 20 22 4c 43 44 |E FIELD |24, "LCD|
|000036f0| 34 22 0d 20 20 49 46 20 | 64 6f 6e 65 3d 35 20 54 |4". IF |done=5 T|
|00003700| 48 45 4e 20 50 49 43 54 | 55 52 45 20 46 49 45 4c |HEN PICT|URE FIEL|
|00003710| 44 20 32 34 2c 20 22 4c | 43 44 35 22 0d 20 20 49 |D 24, "L|CD5". I|
|00003720| 46 20 64 6f 6e 65 3d 36 | 20 54 48 45 4e 20 50 49 |F done=6| THEN PI|
|00003730| 43 54 55 52 45 20 46 49 | 45 4c 44 20 32 34 2c 20 |CTURE FI|ELD 24, |
|00003740| 22 4c 43 44 36 22 0d 20 | 20 49 46 20 64 6f 6e 65 |"LCD6". | IF done|
|00003750| 3d 37 20 54 48 45 4e 20 | 50 49 43 54 55 52 45 20 |=7 THEN |PICTURE |
|00003760| 46 49 45 4c 44 20 32 34 | 2c 20 22 4c 43 44 37 22 |FIELD 24|, "LCD7"|
|00003770| 0d 20 20 49 46 20 64 6f | 6e 65 3d 38 20 54 48 45 |. IF do|ne=8 THE|
|00003780| 4e 20 50 49 43 54 55 52 | 45 20 46 49 45 4c 44 20 |N PICTUR|E FIELD |
|00003790| 32 34 2c 20 22 4c 43 44 | 38 22 0d 20 20 49 46 20 |24, "LCD|8". IF |
|000037a0| 64 6f 6e 65 3d 39 20 54 | 48 45 4e 20 50 49 43 54 |done=9 T|HEN PICT|
|000037b0| 55 52 45 20 46 49 45 4c | 44 20 32 34 2c 20 22 4c |URE FIEL|D 24, "L|
|000037c0| 43 44 39 22 0d 45 4e 44 | 20 46 4e 0d 0d 4c 4f 43 |CD9".END| FN..LOC|
|000037d0| 41 4c 20 46 4e 20 62 75 | 69 6c 64 4d 65 6e 75 0d |AL FN bu|ildMenu.|
|000037e0| 20 20 4d 45 4e 55 20 31 | 2c 30 2c 5f 65 6e 61 62 | MENU 1|,0,_enab|
|000037f0| 6c 65 2c 22 46 69 6c 65 | 22 0d 20 20 4d 45 4e 55 |le,"File|". MENU|
|00003800| 20 31 2c 31 2c 5f 65 6e | 61 62 6c 65 2c 22 48 65 | 1,1,_en|able,"He|
|00003810| 6c 70 2f 48 22 0d 20 20 | 4d 45 4e 55 20 31 2c 32 |lp/H". |MENU 1,2|
|00003820| 2c 5f 64 69 73 61 62 6c | 65 2c 22 2d 22 0d 20 20 |,_disabl|e,"-". |
|00003830| 4d 45 4e 55 20 31 2c 33 | 2c 5f 65 6e 61 62 6c 65 |MENU 1,3|,_enable|
|00003840| 2c 22 51 75 69 74 2f 51 | 22 0d 45 4e 44 20 46 4e |,"Quit/Q|".END FN|
|00003850| 0d 0d 4c 4f 43 41 4c 20 | 46 4e 20 64 6f 42 72 65 |..LOCAL |FN doBre|
|00003860| 61 6b 0d 20 20 43 41 4c | 4c 20 43 4c 4f 53 45 52 |ak. CAL|L CLOSER|
|00003870| 45 53 46 49 4c 45 28 72 | 66 69 28 31 29 29 0d 20 |ESFILE(r|fi(1)). |
|00003880| 20 43 41 4c 4c 20 43 4c | 4f 53 45 52 45 53 46 49 | CALL CL|OSERESFI|
|00003890| 4c 45 28 72 66 69 28 32 | 29 29 0d 20 20 49 46 20 |LE(rfi(2|)). IF |
|000038a0| 72 66 69 28 33 29 3c 3e | 30 20 54 48 45 4e 20 43 |rfi(3)<>|0 THEN C|
|000038b0| 41 4c 4c 20 43 4c 4f 53 | 45 52 45 53 46 49 4c 45 |ALL CLOS|ERESFILE|
|000038c0| 28 72 66 69 28 33 29 29 | 0d 20 20 0d 20 20 53 4f |(rfi(3))|. . SO|
|000038d0| 55 4e 44 20 45 4e 44 0d | 20 20 45 4e 44 0d 45 4e |UND END.| END.EN|
|000038e0| 44 20 46 4e 0d 0d 4c 4f | 43 41 4c 20 46 4e 20 64 |D FN..LO|CAL FN d|
|000038f0| 6f 4d 65 6e 75 0d 20 20 | 6d 65 6e 75 49 44 3d 4d |oMenu. |menuID=M|
|00003900| 45 4e 55 28 5f 6d 65 6e | 75 49 44 29 0d 20 20 69 |ENU(_men|uID). i|
|00003910| 74 65 6d 49 44 3d 4d 45 | 4e 55 28 5f 69 74 65 6d |temID=ME|NU(_item|
|00003920| 49 44 29 0d 20 20 0d 20 | 20 4c 4f 4e 47 20 49 46 |ID). . | LONG IF|
|00003930| 20 6d 65 6e 75 49 44 3d | 31 0d 20 20 20 20 4c 4f | menuID=|1. LO|
|00003940| 4e 47 20 49 46 20 69 74 | 65 6d 49 44 3d 31 0d 20 |NG IF it|emID=1. |
|00003950| 20 20 20 20 20 57 49 4e | 44 4f 57 20 32 30 30 2c | WIN|DOW 200,|
|00003960| 2c 28 72 65 7a 57 2f 32 | 2d 31 35 30 2c 72 65 7a |,(rezW/2|-150,rez|
|00003970| 48 2f 32 2d 32 30 30 29 | 2d 28 72 65 7a 57 2f 32 |H/2-200)|-(rezW/2|
|00003980| 2b 31 35 30 2c 72 65 7a | 48 2f 32 2b 32 30 30 29 |+150,rez|H/2+200)|
|00003990| 2c 5f 64 69 61 6c 6f 67 | 50 6c 61 69 6e 0d 20 20 |,_dialog|Plain. |
|000039a0| 20 20 20 20 45 44 49 54 | 20 46 49 45 4c 44 20 2d | EDIT| FIELD -|
|000039b0| 32 30 30 2c 25 31 32 38 | 2c 28 35 2c 30 29 2d 28 |200,%128|,(5,0)-(|
|000039c0| 32 39 35 2c 34 30 30 29 | 2c 5f 73 74 61 74 4e 6f |295,400)|,_statNo|
|000039d0| 46 72 61 6d 65 64 0d 20 | 20 20 20 20 20 0d 20 20 |Framed. | . |
|000039e0| 20 20 20 20 44 4f 0d 20 | 20 20 20 20 20 55 4e 54 | DO. | UNT|
|000039f0| 49 4c 20 4c 45 4e 28 49 | 4e 4b 45 59 24 29 0d 20 |IL LEN(I|NKEY$). |
|00003a00| 20 20 20 20 20 0d 20 20 | 20 20 20 20 72 65 64 72 | . | redr|
|00003a10| 61 77 3d 31 0d 20 20 20 | 20 58 45 4c 53 45 0d 20 |aw=1. | XELSE. |
|00003a20| 20 20 20 20 20 46 4e 20 | 64 6f 42 72 65 61 6b 0d | FN |doBreak.|
|00003a30| 20 20 20 20 45 4e 44 20 | 49 46 0d 20 20 45 4e 44 | END |IF. END|
|00003a40| 20 49 46 0d 20 20 0d 20 | 20 4d 45 4e 55 0d 45 4e | IF. . | MENU.EN|
|00003a50| 44 20 46 4e 0d 0d 4c 4f | 43 41 4c 20 46 4e 20 73 |D FN..LO|CAL FN s|
|00003a60| 61 76 65 6c 69 73 74 0d | 20 20 44 49 4d 20 6c 65 |avelist.| DIM le|
|00003a70| 76 65 6c 24 0d 20 20 0d | 20 20 73 65 6c 65 63 74 |vel$. .| select|
|00003a80| 65 64 73 61 76 65 3d 31 | 0d 20 20 73 63 72 65 65 |edsave=1|. scree|
|00003a90| 6e 3d 31 0d 20 20 57 49 | 4e 44 4f 57 20 43 4c 4f |n=1. WI|NDOW CLO|
|00003aa0| 53 45 28 31 29 0d 20 20 | 0d 20 20 57 49 4e 44 4f |SE(1). |. WINDO|
|00003ab0| 57 20 31 2c 2c 28 30 2c | 30 29 2d 28 32 32 30 2c |W 1,,(0,|0)-(220,|
|00003ac0| 32 38 30 29 2c 5f 64 69 | 61 6c 6f 67 50 6c 61 69 |280),_di|alogPlai|
|00003ad0| 6e 0d 20 20 0d 20 20 70 | 69 63 74 26 3d 46 4e 20 |n. . p|ict&=FN |
|00003ae0| 47 45 54 4e 41 4d 45 44 | 52 45 53 4f 55 52 43 45 |GETNAMED|RESOURCE|
|00003af0| 28 5f 22 50 49 43 54 22 | 2c 22 46 72 61 6d 65 64 |(_"PICT"|,"Framed|
|00003b00| 50 6c 61 74 65 22 29 0d | 20 20 50 49 43 54 55 52 |Plate").| PICTUR|
|00003b10| 45 20 28 30 2c 30 29 2d | 28 32 32 30 2c 32 38 30 |E (0,0)-|(220,280|
|00003b20| 29 2c 70 69 63 74 26 0d | 20 20 0d 20 20 46 4f 52 |),pict&.| . FOR|
|00003b30| 20 63 79 63 6c 65 73 3d | 31 20 54 4f 20 31 30 0d | cycles=|1 TO 10.|
|00003b40| 20 20 20 20 45 44 49 54 | 20 46 49 45 4c 44 20 63 | EDIT| FIELD c|
|00003b50| 79 63 6c 65 73 2b 32 32 | 2c 2c 28 34 30 2c 63 79 |ycles+22|,,(40,cy|
|00003b60| 63 6c 65 73 2a 32 30 2b | 32 30 29 2d 28 31 37 35 |cles*20+|20)-(175|
|00003b70| 2c 63 79 63 6c 65 73 2a | 32 30 2b 34 30 29 2c 5f |,cycles*|20+40),_|
|00003b80| 73 74 61 74 46 72 61 6d | 65 64 0d 20 20 20 20 50 |statFram|ed. P|
|00003b90| 49 43 54 55 52 45 20 46 | 49 45 4c 44 20 63 79 63 |ICTURE F|IELD cyc|
|00003ba0| 6c 65 73 2b 33 32 2c 22 | 52 47 4c 69 67 68 74 52 |les+32,"|RGLightR|
|00003bb0| 4f 6e 22 2c 28 31 35 2c | 63 79 63 6c 65 73 2a 32 |On",(15,|cycles*2|
|00003bc0| 30 2b 32 32 29 2d 28 33 | 35 2c 63 79 63 6c 65 73 |0+22)-(3|5,cycles|
|00003bd0| 2a 32 30 2b 33 38 29 2c | 5f 73 74 61 74 4e 6f 46 |*20+38),|_statNoF|
|00003be0| 72 61 6d 65 64 5f 73 74 | 61 74 4b 65 65 70 42 67 |ramed_st|atKeepBg|
|00003bf0| 0d 20 20 20 20 45 44 49 | 54 20 46 49 45 4c 44 20 |. EDI|T FIELD |
|00003c00| 63 79 63 6c 65 73 2b 34 | 32 2c 2c 28 31 38 30 2c |cycles+4|2,,(180,|
|00003c10| 63 79 63 6c 65 73 2a 32 | 30 2b 32 30 29 2d 28 32 |cycles*2|0+20)-(2|
|00003c20| 30 35 2c 63 79 63 6c 65 | 73 2a 32 30 2b 34 30 29 |05,cycle|s*20+40)|
|00003c30| 2c 5f 73 74 61 74 46 72 | 61 6d 65 64 0d 20 20 4e |,_statFr|amed. N|
|00003c40| 45 58 54 0d 20 20 0d 20 | 20 0d 20 20 54 45 58 54 |EXT. . | . TEXT|
|00003c50| 20 2c 31 38 2c 5f 62 6f | 6c 64 42 69 74 25 0d 20 | ,18,_bo|ldBit%. |
|00003c60| 20 50 52 49 4e 54 25 28 | 32 37 2c 33 30 29 22 4f | PRINT%(|27,30)"O|
|00003c70| 66 66 69 63 65 72 20 52 | 6f 73 74 65 72 22 0d 20 |fficer R|oster". |
|00003c80| 20 54 45 58 54 20 2c 31 | 32 2c 30 0d 20 20 0d 20 | TEXT ,1|2,0. . |
|00003c90| 20 50 49 43 54 55 52 45 | 20 46 49 45 4c 44 20 32 | PICTURE| FIELD 2|
|00003ca0| 30 2c 22 42 75 74 74 6f | 6e 22 2c 28 35 30 2c 32 |0,"Butto|n",(50,2|
|00003cb0| 34 35 29 2d 28 38 30 2c | 32 37 30 29 2c 5f 6e 6f |45)-(80,|270),_no|
|00003cc0| 46 72 61 6d 65 64 0d 20 | 20 54 45 58 54 20 2c 31 |Framed. | TEXT ,1|
|00003cd0| 34 2c 5f 62 6f 6c 64 42 | 69 74 25 0d 20 20 50 52 |4,_boldB|it%. PR|
|00003ce0| 49 4e 54 25 28 38 35 2c | 32 36 32 29 22 41 62 6f |INT%(85,|262)"Abo|
|00003cf0| 72 74 22 0d 20 20 54 45 | 58 54 20 2c 31 32 2c 30 |rt". TE|XT ,12,0|
|00003d00| 00 00 20 0d 20 20 50 49 | 43 54 55 52 45 20 46 49 |.. . PI|CTURE FI|
|00003d10| 45 4c 44 20 33 33 2c 22 | 52 47 4c 69 67 68 74 47 |ELD 33,"|RGLightG|
|00003d20| 4f 6e 22 0d 20 20 4f 50 | 45 4e 20 22 49 22 2c 31 |On". OP|EN "I",1|
|00003d30| 2c 22 53 61 76 65 73 22 | 2c 2c 66 6f 6c 64 65 72 |,"Saves"|,,folder|
|00003d40| 4c 6f 63 0d 20 20 0d 20 | 20 46 4f 52 20 63 79 63 |Loc. . | FOR cyc|
|00003d50| 6c 65 73 3d 31 20 54 4f | 20 31 30 0d 20 20 20 20 |les=1 TO| 10. |
|00003d60| 6e 61 6d 65 4c 65 6e 67 | 74 68 3d 30 0d 20 20 20 |nameLeng|th=0. |
|00003d70| 20 73 61 76 65 4e 61 6d | 65 24 3d 22 22 0d 20 20 | saveNam|e$="". |
|00003d80| 20 20 52 45 43 4f 52 44 | 20 31 2c 31 30 2a 63 79 | RECORD| 1,10*cy|
|00003d90| 63 6c 65 73 2b 31 0d 20 | 20 20 20 52 45 41 44 23 |cles+1. | READ#|
|00003da0| 20 31 2c 6e 61 6d 65 4c | 65 6e 67 74 68 0d 20 20 | 1,nameL|ength. |
|00003db0| 20 20 52 45 43 4f 52 44 | 20 31 2c 31 30 2a 63 79 | RECORD| 1,10*cy|
|00003dc0| 63 6c 65 73 0d 20 20 20 | 20 52 45 41 44 23 20 31 |cles. | READ# 1|
|00003dd0| 2c 73 61 76 65 4e 61 6d | 65 24 3b 6e 61 6d 65 4c |,saveNam|e$;nameL|
|00003de0| 65 6e 67 74 68 0d 20 20 | 20 20 45 44 49 54 20 46 |ength. | EDIT F|
|00003df0| 49 45 4c 44 20 63 79 63 | 6c 65 73 2b 32 32 2c 73 |IELD cyc|les+22,s|
|00003e00| 00 00 03 a6 83 e1 ff fc | 4e 80 00 20 38 a2 03 60 |........|N.. 8..`|
|00003e10| 39 00 00 00 80 a5 00 00 | 28 03 80 00 80 a5 02 14 |9.......|(.......|
|00003e20| 7d 09 43 78 a8 c5 00 26 | 40 80 00 10 3c 60 00 01 |}.Cx...&|@...<`..|
|00003e30| 38 63 80 00 48 00 00 1c | 3c a0 00 02 38 a5 80 00 |8c..H...|<...8...|
|00003e40| 7c 03 28 40 40 81 00 0c | 3c 60 00 02 38 63 80 00 ||.(@@...|<`..8c..|
|00003e50| 3c a0 00 01 7c 03 28 40 | 40 80 00 18 38 05 80 00 |<...|.(@|@...8...|
|00003e60| 7c 00 33 96 38 63 80 00 | 7c 63 03 d6 48 00 00 1c ||.3.8c..||c..H...|
|00003e70| 20 e6 00 0f 38 05 80 00 | 7c 00 3b 96 3c 63 ff ff | ...8...||.;.<c..|
|00003e80| 7c 03 03 d6 7c 66 02 14 | 54 80 07 ff 41 82 00 08 ||...|f..|T...A...|
|00003e90| 54 68 20 36 54 80 07 bd | 41 82 00 08 7c 69 1b 78 |Th 6T...|A...|i.x|
|00003ea0| 7d 03 4b 78 4e 80 00 20 | 54 60 06 3f 38 c2 03 60 |}.KxN.. |T`.?8..`|
|00003eb0| 41 82 00 28 80 86 00 00 | 54 65 06 3e 80 04 02 08 |A..(....|Te.>....|
|00003ec0| 54 00 00 2e 90 04 02 08 | 80 86 00 00 80 04 02 08 |T.......|........|
|00003ed0| 7c 00 2b 78 90 04 02 08 | 54 60 04 2f 41 82 00 28 ||.+x....|T`./A..(|
|00003ee0| 80 a6 00 00 54 64 04 2e | 80 05 02 08 54 00 06 1e |....Td..|....T...|
|00003ef0| 90 05 02 08 80 66 00 00 | 80 03 02 08 7c 00 23 78 |.....f..|....|.#x|
|00003f00| 90 03 02 08 38 60 00 00 | 4e 80 00 20 7c 08 02 a6 |....8`..|N.. |...|
|00003f10| bf 01 ff e0 90 01 00 08 | 94 21 ff 70 3b e2 03 60 |........|.!.p;..`|
|00003f20| 54 7d 06 3e 80 9f 00 00 | 54 7c 04 2e 80 04 02 04 |T}.>....|T|......|
|00003f30| 3b 20 00 00 54 18 06 3e | 7c 18 e8 40 54 1e 04 2e |; ..T..>||..@T...|
|00003f40| 40 82 00 14 7c 1e e0 40 | 40 82 00 0c 7f 23 cb 78 |@...|..@|@....#.x|
|00003f50| 48 00 02 a0 38 61 00 68 | 48 00 0b 55 60 00 00 00 |H...8a.h|H..U`...|
|00003f60| 80 7f 00 00 28 1d 00 00 | 80 63 02 34 3c 63 00 01 |....(...|.c.4<c..|
|00003f70| 83 63 40 00 41 82 00 74 | 7c 1d c0 40 41 82 00 6c |.c@.A..t||..@A..l|
|00003f80| 80 01 00 68 54 00 07 ff | 41 82 00 10 38 60 00 04 |...hT...|A...8`..|
|00003f90| 48 00 2d 61 60 00 00 00 | 57 ba 07 fe 57 a0 ff fe |H.-a`...|W...W...|
|00003fa0| 7f 5a 02 14 57 a0 f7 fe | 7f 5a 02 14 57 a0 e8 fe |.Z..W...|.Z..W...|
|00003fb0| 7f 5a 02 14 7f 43 d3 78 | 38 81 00 50 48 00 1f 31 |.Z...C.x|8..PH..1|
|00003fc0| 60 00 00 00 7c 78 1b 78 | 7f 00 07 35 41 82 00 0c |`...|x.x|...5A...|
|00003fd0| 7f 03 c3 78 48 00 02 1c | 57 7b 02 06 57 a0 c0 0e |...xH...|W{..W...|
|00003fe0| 7f 7b 03 78 3b 20 00 01 | 28 1c 00 00 41 82 01 04 |.{.x; ..|(...A...|
|00003ff0| 7c 1c f0 40 41 82 00 fc | 80 01 00 68 54 00 07 bd ||..@A...|...hT...|
|00004000| 4f 57 20 43 4c 4f 53 45 | 20 28 31 29 0d 20 20 0d |OW CLOSE| (1). .|
|00004010| 20 20 57 49 4e 44 4f 57 | 20 31 2c 2c 28 30 2c 30 | WINDOW| 1,,(0,0|
|00004020| 29 2d 28 32 30 30 2c 32 | 38 30 29 2c 5f 64 69 61 |)-(200,2|80),_dia|
|00004030| 6c 6f 67 50 6c 61 69 6e | 0d 20 20 42 4f 58 20 46 |logPlain|. BOX F|
|00004040| 49 4c 4c 20 30 2c 39 30 | 20 54 4f 20 32 30 30 2c |ILL 0,90| TO 200,|
|00004050| 32 38 30 0d 20 20 0d 20 | 20 4f 50 45 4e 20 22 49 |280. . | OPEN "I|
|00004060| 22 2c 31 2c 22 42 61 73 | 69 63 20 4d 69 73 73 69 |",1,"Bas|ic Missi|
|00004070| 6f 6e 20 53 65 74 22 2c | 2c 66 6f 6c 64 65 72 4c |on Set",|,folderL|
|00004080| 6f 63 0d 20 20 0d 20 20 | 52 45 43 4f 52 44 20 31 |oc. . |RECORD 1|
|00004090| 2c 33 2b 6c 65 76 65 6c | 2a 31 35 0d 20 20 52 45 |,3+level|*15. RE|
|000040a0| 41 44 20 23 31 2c 20 6c | 65 76 65 6c 4c 65 6e 0d |AD #1, l|evelLen.|
|000040b0| 20 20 0d 20 20 52 45 43 | 4f 52 44 20 31 2c 32 2b | . REC|ORD 1,2+|
|000040c0| 6c 65 76 65 6c 2a 31 35 | 0d 20 20 52 45 41 44 20 |level*15|. READ |
|000040d0| 23 31 2c 20 6c 65 76 65 | 6c 24 3b 6c 65 76 65 6c |#1, leve|l$;level|
|000040e0| 4c 65 6e 0d 20 20 0d 20 | 20 52 45 43 4f 52 44 20 |Len. . | RECORD |
|000040f0| 31 2c 35 2b 6c 65 76 65 | 6c 2a 31 35 0d 20 20 52 |1,5+leve|l*15. R|
|00004100| 45 41 44 20 23 31 2c 20 | 70 69 63 74 4c 65 6e 0d |EAD #1, |pictLen.|
|00004110| 20 20 0d 20 20 52 45 43 | 4f 52 44 20 31 2c 34 2b | . REC|ORD 1,4+|
|00004120| 6c 65 76 65 6c 2a 31 35 | 0d 20 20 52 45 41 44 20 |level*15|. READ |
|00004130| 23 31 2c 20 70 69 63 74 | 4e 61 6d 65 24 3b 70 69 |#1, pict|Name$;pi|
|00004140| 63 74 4c 65 6e 0d 20 20 | 0d 20 20 52 45 43 4f 52 |ctLen. |. RECOR|
|00004150| 44 20 31 2c 36 2b 6c 65 | 76 65 6c 2a 31 35 0d 20 |D 1,6+le|vel*15. |
|00004160| 20 52 45 41 44 20 23 31 | 2c 20 74 69 6d 65 4c 69 | READ #1|, timeLi|
|00004170| 6d 69 74 0d 20 20 0d 20 | 20 52 45 43 4f 52 44 20 |mit. . | RECORD |
|00004180| 31 2c 37 2b 6c 65 76 65 | 6c 2a 31 35 0d 20 20 52 |1,7+leve|l*15. R|
|00004190| 45 41 44 20 23 31 2c 20 | 6c 65 6e 67 74 68 0d 20 |EAD #1, |length. |
|000041a0| 20 0d 20 20 52 45 43 4f | 52 44 20 31 2c 39 2b 6c | . RECO|RD 1,9+l|
|000041b0| 65 76 65 6c 2a 31 35 0d | 20 20 52 45 41 44 20 23 |evel*15.| READ #|
|000041c0| 31 2c 20 73 6f 66 74 77 | 61 72 65 4c 65 6e 0d 20 |1, softw|areLen. |
|000041d0| 20 0d 20 20 52 45 43 4f | 52 44 20 31 2c 38 2b 6c | . RECO|RD 1,8+l|
|000041e0| 65 76 65 6c 2a 31 35 0d | 20 20 52 45 41 44 20 23 |evel*15.| READ #|
|000041f0| 31 2c 20 73 6f 66 74 77 | 61 72 65 24 3b 73 6f 66 |1, softw|are$;sof|
|00004200| 74 77 61 72 65 4c 65 6e | 0d 20 20 0d 20 20 52 45 |twareLen|. . RE|
|00004210| 43 4f 52 44 20 31 2c 31 | 30 2b 6c 65 76 65 6c 2a |CORD 1,1|0+level*|
|00004220| 31 35 0d 20 20 52 45 41 | 44 20 23 31 2c 20 73 65 |15. REA|D #1, se|
|00004230| 6e 73 69 74 69 76 69 74 | 79 0d 20 20 0d 20 20 52 |nsitivit|y. . R|
|00004240| 45 43 4f 52 44 20 31 2c | 31 32 2b 6c 65 76 65 6c |ECORD 1,|12+level|
|00004250| 2a 31 35 0d 20 20 52 45 | 41 44 20 23 31 2c 20 6c |*15. RE|AD #1, l|
|00004260| 6f 63 61 74 69 6f 6e 4c | 65 6e 0d 20 20 0d 20 20 |ocationL|en. . |
|00004270| 52 45 43 4f 52 44 20 31 | 2c 31 31 2b 6c 65 76 65 |RECORD 1|,11+leve|
|00004280| 6c 2a 31 35 0d 20 20 52 | 45 41 44 20 23 31 2c 20 |l*15. R|EAD #1, |
|00004290| 6c 6f 63 61 74 69 6f 6e | 24 3b 6c 6f 63 61 74 69 |location|$;locati|
|000042a0| 6f 6e 4c 65 6e 0d 20 20 | 0d 20 20 43 4c 4f 53 45 |onLen. |. CLOSE|
|000042b0| 20 31 0d 20 20 0d 20 20 | 74 6c 69 6d 69 74 6d 69 | 1. . |tlimitmi|
|000042c0| 6e 3d 28 74 69 6d 65 4c | 69 6d 69 74 2f 36 30 29 |n=(timeL|imit/60)|
|000042d0| 0d 20 20 74 6c 69 6d 69 | 74 74 73 65 63 3d 28 28 |. tlimi|ttsec=((|
|000042e0| 74 69 6d 65 4c 69 6d 69 | 74 2d 74 6c 69 6d 69 74 |timeLimi|t-tlimit|
|000042f0| 6d 69 6e 2a 36 30 29 2f | 31 30 29 0d 20 20 74 6c |min*60)/|10). tl|
|00004300| 69 6d 69 74 73 65 63 3d | 74 69 6d 65 4c 69 6d 69 |imitsec=|timeLimi|
|00004310| 74 2d 74 6c 69 6d 69 74 | 6d 69 6e 2a 36 30 2d 74 |t-tlimit|min*60-t|
|00004320| 6c 69 6d 69 74 74 73 65 | 63 2a 31 30 0d 20 20 0d |limittse|c*10. .|
|00004330| 20 20 70 69 63 74 26 3d | 46 4e 20 47 45 54 4e 41 | pict&=|FN GETNA|
|00004340| 4d 45 44 52 45 53 4f 55 | 52 43 45 28 5f 22 50 49 |MEDRESOU|RCE(_"PI|
|00004350| 43 54 22 2c 70 69 63 74 | 4e 61 6d 65 24 29 0d 20 |CT",pict|Name$). |
|00004360| 20 50 49 43 54 55 52 45 | 20 28 30 2c 30 29 2c 70 | PICTURE| (0,0),p|
|00004370| 69 63 74 26 0d 20 20 0d | 20 20 43 4f 4c 4f 52 20 |ict&. .| COLOR |
|00004380| 5f 7a 47 72 65 65 6e 0d | 20 20 50 52 49 4e 54 25 |_zGreen.| PRINT%|
|00004390| 28 30 2c 31 30 30 29 0d | 20 20 0d 20 20 46 4e 20 |(0,100).| . FN |
|000043a0| 64 69 73 70 44 65 6c 61 | 79 65 64 53 74 72 69 6e |dispDela|yedStrin|
|000043b0| 67 28 22 2a 54 61 72 67 | 65 74 20 44 61 74 61 2a |g("*Targ|et Data*|
|000043c0| 22 2c 31 33 29 0d 20 20 | 50 52 49 4e 54 0d 20 20 |",13). |PRINT. |
|000043d0| 50 52 49 4e 54 0d 20 20 | 0d 20 20 46 4e 20 64 69 |PRINT. |. FN di|
|000043e0| 73 70 44 65 6c 61 79 65 | 64 53 74 72 69 6e 67 28 |spDelaye|dString(|
|000043f0| 6c 65 76 65 6c 24 2c 6c | 65 76 65 6c 4c 65 6e 29 |level$,l|evelLen)|
|00004400| 0d 20 20 50 52 49 4e 54 | 0d 20 20 0d 20 20 46 4e |. PRINT|. . FN|
|00004410| 20 64 69 73 70 44 65 6c | 61 79 65 64 53 74 72 69 | dispDel|ayedStri|
|00004420| 6e 67 28 22 4c 6f 63 61 | 74 69 6f 6e 3a 20 22 2c |ng("Loca|tion: ",|
|00004430| 31 30 29 0d 20 20 0d 20 | 20 46 4e 20 64 69 73 70 |10). . | FN disp|
|00004440| 44 65 6c 61 79 65 64 53 | 74 72 69 6e 67 28 6c 6f |DelayedS|tring(lo|
|00004450| 63 61 74 69 6f 6e 24 2c | 6c 6f 63 61 74 69 6f 6e |cation$,|location|
|00004460| 4c 65 6e 29 0d 20 20 50 | 52 49 4e 54 0d 20 20 0d |Len). P|RINT. .|
|00004470| 20 20 46 4f 52 20 63 79 | 63 6c 65 73 3d 31 20 54 | FOR cy|cles=1 T|
|00004480| 4f 20 32 37 0d 20 20 20 | 20 50 52 49 4e 54 20 22 |O 27. | PRINT "|
|00004490| 2d 22 3b 0d 20 20 20 20 | 44 45 4c 41 59 20 36 30 |-";. |DELAY 60|
|000044a0| 0d 20 20 4e 45 58 54 0d | 20 20 50 52 49 4e 54 0d |. NEXT.| PRINT.|
|000044b0| 20 20 0d 20 20 46 4e 20 | 64 69 73 70 44 65 6c 61 | . FN |dispDela|
|000044c0| 79 65 64 53 74 72 69 6e | 67 28 22 2a 42 6f 6d 62 |yedStrin|g("*Bomb|
|000044d0| 20 44 61 74 61 2a 22 2c | 31 31 29 0d 20 20 50 52 | Data*",|11). PR|
|000044e0| 49 4e 54 0d 20 20 50 52 | 49 4e 54 0d 20 20 0d 20 |INT. PR|INT. . |
|000044f0| 20 46 4e 20 64 69 73 70 | 44 65 6c 61 79 65 64 53 | FN disp|DelayedS|
|00004500| 74 72 69 6e 67 28 22 43 | 69 72 63 75 69 74 73 3a |tring("C|ircuits:|
|00004510| 20 22 2c 31 30 29 0d 20 | 20 0d 20 20 50 52 49 4e | ",10). | . PRIN|
|00004520| 54 20 6c 65 6e 67 74 68 | 3b 0d 20 20 0d 20 20 46 |T length|;. . F|
|00004530| 4e 20 64 69 73 70 44 65 | 6c 61 79 65 64 53 74 72 |N dispDe|layedStr|
|00004540| 69 6e 67 28 22 20 20 20 | 54 69 6d 65 72 3a 20 22 |ing(" |Timer: "|
|00004550| 2c 31 30 29 0d 20 20 0d | 20 20 50 52 49 4e 54 20 |,10). .| PRINT |
|00004560| 74 6c 69 6d 69 74 6d 69 | 6e 3b 0d 20 20 44 45 4c |tlimitmi|n;. DEL|
|00004570| 41 59 20 36 30 0d 20 20 | 50 52 49 4e 54 20 22 3a |AY 60. |PRINT ":|
|00004580| 22 3b 0d 20 20 44 45 4c | 41 59 20 36 30 0d 20 20 |";. DEL|AY 60. |
|00004590| 50 52 49 4e 54 20 74 6c | 69 6d 69 74 74 73 65 63 |PRINT tl|imittsec|
|000045a0| 3b 0d 20 20 44 45 4c 41 | 59 20 36 30 0d 20 20 50 |;. DELA|Y 60. P|
|000045b0| 52 49 4e 54 20 74 6c 69 | 6d 69 74 73 65 63 3b 0d |RINT tli|mitsec;.|
|000045c0| 20 20 44 45 4c 41 59 20 | 36 30 0d 20 20 50 52 49 | DELAY |60. PRI|
|000045d0| 4e 54 0d 20 20 0d 20 20 | 46 4e 20 64 69 73 70 44 |NT. . |FN dispD|
|000045e0| 65 6c 61 79 65 64 53 74 | 72 69 6e 67 28 22 53 6f |elayedSt|ring("So|
|000045f0| 66 74 77 61 72 65 3a 20 | 22 2c 31 30 29 0d 20 20 |ftware: |",10). |
|00004600| 0d 20 20 46 4e 20 64 69 | 73 70 44 65 6c 61 79 65 |. FN di|spDelaye|
|00004610| 64 53 74 72 69 6e 67 28 | 73 6f 66 74 77 61 72 65 |dString(|software|
|00004620| 24 2c 73 6f 66 74 77 61 | 72 65 4c 65 6e 29 0d 20 |$,softwa|reLen). |
|00004630| 20 50 52 49 4e 54 0d 20 | 20 0d 20 20 46 4e 20 64 | PRINT. | . FN d|
|00004640| 69 73 70 44 65 6c 61 79 | 65 64 53 74 72 69 6e 67 |ispDelay|edString|
|00004650| 28 22 28 50 72 65 73 73 | 20 61 6e 79 20 6b 65 79 |("(Press| any key|
|00004660| 20 74 6f 20 63 6f 6e 74 | 69 6e 75 65 29 22 2c 32 | to cont|inue)",2|
|00004670| 37 29 0d 20 20 0d 20 20 | 44 4f 0d 20 20 55 4e 54 |7). . |DO. UNT|
|00004680| 49 4c 20 4c 45 4e 28 49 | 4e 4b 45 59 24 29 0d 45 |IL LEN(I|NKEY$).E|
|00004690| 4e 44 20 46 4e 0d 0d 53 | 45 47 4d 45 4e 54 0d 4c |ND FN..S|EGMENT.L|
|000046a0| 4f 43 41 4c 20 46 4e 20 | 64 6f 44 69 61 6c 6f 67 |OCAL FN |doDialog|
|000046b0| 0d 20 20 65 76 6e 74 3d | 44 49 41 4c 4f 47 28 30 |. evnt=|DIALOG(0|
|000046c0| 29 0d 20 20 69 64 3d 44 | 49 41 4c 4f 47 28 65 76 |). id=D|IALOG(ev|
|000046d0| 6e 74 29 0d 20 20 0d 20 | 20 53 45 4c 45 43 54 20 |nt). . | SELECT |
|000046e0| 65 76 6e 74 0d 20 20 20 | 20 43 41 53 45 20 5f 65 |evnt. | CASE _e|
|000046f0| 66 43 6c 69 63 6b 0d 20 | 20 20 20 20 20 53 45 4c |fClick. | SEL|
|00004700| 00 00 54 20 69 64 0d 20 | 20 20 20 20 20 20 20 43 |..T id. | C|
|00004710| 41 53 45 20 31 31 0d 20 | 20 20 20 20 20 20 20 20 |ASE 11. | |
|00004720| 20 62 75 74 74 6f 6e 68 | 69 74 3d 31 31 0d 20 20 | buttonh|it=11. |
|00004730| 20 20 20 20 20 20 20 20 | 49 46 20 6c 65 6e 67 74 | |IF lengt|
|00004740| 68 3c 38 20 54 48 45 4e | 20 6c 65 6e 67 74 68 3d |h<8 THEN| length=|
|00004750| 46 4e 20 63 68 61 6e 67 | 65 44 69 67 69 74 28 6c |FN chang|eDigit(l|
|00004760| 65 6e 67 74 68 2c 20 36 | 2c 20 62 75 74 74 6f 6e |ength, 6|, button|
|00004770| 68 69 74 2c 20 31 29 0d | 20 20 20 20 20 20 20 20 |hit, 1).| |
|00004780| 20 20 46 4e 20 64 69 66 | 66 69 63 75 6c 74 79 0d | FN dif|ficulty.|
|00004790| 20 20 20 20 20 20 20 20 | 43 41 53 45 20 31 32 0d | |CASE 12.|
|000047a0| 20 20 20 20 20 20 20 20 | 20 20 62 75 74 74 6f 6e | | button|
|000047b0| 68 69 74 3d 31 32 0d 20 | 20 20 20 20 20 20 20 20 |hit=12. | |
|000047c0| 20 49 46 20 6c 65 6e 67 | 74 68 3e 33 20 54 48 45 | IF leng|th>3 THE|
|000047d0| 4e 20 6c 65 6e 67 74 68 | 3d 46 4e 20 63 68 61 6e |N length|=FN chan|
|000047e0| 67 65 44 69 67 69 74 28 | 6c 65 6e 67 74 68 2c 20 |geDigit(|length, |
|000047f0| 36 2c 20 62 75 74 74 6f | 6e 68 69 74 2c 20 2d 31 |6, butto|nhit, -1|
|00004800| 00 00 00 20 7c 08 02 a6 | 90 01 00 08 94 21 ff c0 |... |...|.....!..|
|00004810| 38 82 03 60 54 60 07 3e | 80 64 00 00 90 03 02 00 |8..`T`.>|.d......|
|00004820| 80 64 00 00 80 03 02 00 | 28 00 00 00 7c 00 00 26 |.d......|(...|..&|
|00004830| 54 00 1f fe 68 03 00 01 | 48 00 2f 29 60 00 00 00 |T...h...|H./)`...|
|00004840| 80 01 00 48 38 21 00 40 | 7c 08 03 a6 4e 80 00 20 |...H8!.@||...N.. |
|00004850| 7c 65 1b 78 38 82 03 60 | 38 60 00 00 80 84 00 00 ||e.x8..`|8`......|
|00004860| 80 04 02 08 90 05 00 00 | 4e 80 00 20 7c 65 1b 78 |........|N.. |e.x|
|00004870| 38 82 03 60 38 60 00 00 | 80 84 00 00 80 04 02 04 |8..`8`..|........|
|00004880| 90 05 00 00 4e 80 00 20 | 7c 65 1b 78 38 82 03 60 |....N.. ||e.x8..`|
|00004890| 38 60 00 00 80 84 00 00 | 80 04 02 00 90 05 00 00 |8`......|........|
|000048a0| 4e 80 00 20 38 c2 03 60 | 38 a0 00 00 80 66 00 00 |N.. 8..`|8....f..|
|000048b0| 38 80 01 01 90 83 02 08 | 80 66 00 00 38 00 00 01 |8.......|.f..8...|
|000048c0| 90 83 02 04 80 86 00 00 | 7c a3 2b 78 90 a4 02 00 |........||.+x....|
|000048d0| 80 86 00 00 98 04 02 55 | 80 86 00 00 98 04 02 56 |.......U|.......V|
|000048e0| 4e 80 00 20 7c 08 02 a6 | 93 e1 ff fc 93 c1 ff f8 |N.. |...|........|
|000048f0| 90 01 00 08 94 21 ff c0 | 54 80 07 ff 38 00 00 00 |.....!..|T...8...|
|00004900| 3b e2 03 60 7c 1e 03 78 | 41 82 01 00 54 c7 06 3e |;..`|..x|A...T..>|
|00004910| 2c 07 00 02 41 82 00 24 | 40 80 00 30 2c 07 00 01 |,...A..$|@..0,...|
|00004920| 40 80 00 08 48 00 00 24 | 81 1f 00 00 38 e8 00 d0 |@...H..$|....8...|
|00004930| 39 08 00 e0 48 00 00 1c | 81 1f 00 00 38 e8 01 08 |9...H...|....8...|
|00004940| 39 08 01 18 48 00 00 0c | 38 60 ff ce 48 00 02 14 |9...H...|8`..H...|
|00004950| 54 c9 04 2e 2c 09 20 00 | 41 82 00 40 40 80 00 68 |T...,. .|A..@@..h|
|00004960| 2c 09 10 00 41 82 00 08 | 48 00 00 5c 39 40 00 00 |,...A...|H..\9@..|
|00004970| 48 00 00 08 39 4a 00 01 | 7d 49 07 34 2c 09 00 04 |H...9J..|}I.4,...|
|00004980| 40 80 00 4c 55 29 10 3a | 7d 27 48 2e 28 09 00 00 |@..LU).:|}'H.(...|
|00004990| 40 82 ff e4 48 00 00 38 | 39 40 00 03 48 00 00 08 |@...H..8|9@..H...|
|000049a0| 39 4a ff ff 7d 49 07 35 | 41 80 00 24 7d 49 07 34 |9J..}I.5|A..$}I.4|
|000049b0| 55 29 10 3a 7d 27 48 2e | 28 09 00 00 40 82 ff e4 |U).:}'H.|(...@...|
|000049c0| 48 00 00 0c 38 60 ff ce | 48 00 01 98 7d 49 07 35 |H...8`..|H...}I.5|
|000049d0| 41 80 00 30 7d 4a 07 34 | 2c 0a 00 04 40 80 00 24 |A..0}J.4|,...@..$|
|000049e0| 54 c9 06 3e 55 4a 10 3a | 7c a8 51 2e 28 09 00 02 |T..>UJ.:||.Q.(...|
|000049f0| 7c 67 51 2e 40 82 00 14 | 38 00 00 01 48 00 00 0c ||gQ.@...|8...H...|
|00004a00| 63 3d 46 4e 20 63 68 61 | 6e 67 65 44 69 67 69 74 |c=FN cha|ngeDigit|
|00004a10| 28 74 6c 69 6d 69 74 74 | 73 65 63 2c 20 39 2c 20 |(tlimitt|sec, 9, |
|00004a20| 62 75 74 74 6f 6e 68 69 | 74 2c 20 31 29 0d 20 20 |buttonhi|t, 1). |
|00004a30| 20 20 20 20 20 20 20 20 | 46 4e 20 64 69 66 66 69 | |FN diffi|
|00004a40| 63 75 6c 74 79 0d 20 20 | 20 20 20 20 20 20 43 41 |culty. | CA|
|00004a50| 53 45 20 31 36 0d 20 20 | 20 20 20 20 20 20 20 20 |SE 16. | |
|00004a60| 62 75 74 74 6f 6e 68 69 | 74 3d 31 36 0d 20 20 20 |buttonhi|t=16. |
|00004a70| 20 20 20 20 20 20 20 4c | 4f 4e 47 20 49 46 20 74 | L|ONG IF t|
|00004a80| 6c 69 6d 69 74 74 73 65 | 63 3e 30 0d 20 20 20 20 |limittse|c>0. |
|00004a90| 20 20 20 20 20 20 20 20 | 4c 4f 4e 47 20 49 46 20 | |LONG IF |
|00004aa0| 74 6c 69 6d 69 74 74 73 | 65 63 3c 34 20 41 4e 44 |tlimitts|ec<4 AND|
|00004ab0| 20 74 6c 69 6d 69 74 6d | 69 6e 3d 30 0d 20 20 20 | tlimitm|in=0. |
|00004ac0| 20 20 20 20 20 20 20 20 | 20 58 45 4c 53 45 0d 20 | | XELSE. |
|00004ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 74 6c 69 | | tli|
|00004ae0| 6d 69 74 74 73 65 63 3d | 46 4e 20 63 68 61 6e 67 |mittsec=|FN chang|
|00004af0| 65 44 69 67 69 74 28 74 | 6c 69 6d 69 74 74 73 65 |eDigit(t|limittse|
|00004b00| 63 2c 20 39 2c 20 62 75 | 74 74 6f 6e 68 69 74 2c |c, 9, bu|ttonhit,|
|00004b10| 20 2d 31 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 | -1). | |
|00004b20| 20 45 4e 44 20 49 46 0d | 20 20 20 20 20 20 20 20 | END IF.| |
|00004b30| 20 20 45 4e 44 20 49 46 | 0d 20 20 20 20 20 20 20 | END IF|. |
|00004b40| 20 20 20 46 4e 20 64 69 | 66 66 69 63 75 6c 74 79 | FN di|fficulty|
|00004b50| 0d 20 20 20 20 20 20 20 | 20 43 41 53 45 20 31 37 |. | CASE 17|
|00004b60| 0d 20 20 20 20 20 20 20 | 20 20 20 62 75 74 74 6f |. | butto|
|00004b70| 6e 68 69 74 3d 31 37 0d | 20 20 20 20 20 20 20 20 |nhit=17.| |
|00004b80| 20 20 49 46 20 74 6c 69 | 6d 69 74 73 65 63 3c 39 | IF tli|mitsec<9|
|00004b90| 20 54 48 45 4e 20 74 6c | 69 6d 69 74 73 65 63 3d | THEN tl|imitsec=|
|00004ba0| 46 4e 20 63 68 61 6e 67 | 65 44 69 67 69 74 28 74 |FN chang|eDigit(t|
|00004bb0| 6c 69 6d 69 74 73 65 63 | 2c 20 31 30 2c 20 62 75 |limitsec|, 10, bu|
|00004bc0| 74 74 6f 6e 68 69 74 2c | 20 31 29 0d 20 20 20 20 |ttonhit,| 1). |
|00004bd0| 20 20 20 20 20 20 46 4e | 20 64 69 66 66 69 63 75 | FN| difficu|
|00004be0| 6c 74 79 0d 20 20 20 20 | 20 20 20 20 43 41 53 45 |lty. | CASE|
|00004bf0| 20 31 38 0d 20 20 20 20 | 20 20 20 20 20 20 62 75 | 18. | bu|
|00004c00| 74 74 6f 6e 68 69 74 3d | 31 38 0d 20 20 20 20 20 |ttonhit=|18. |
|00004c10| 20 20 20 20 20 49 46 20 | 74 6c 69 6d 69 74 73 65 | IF |tlimitse|
|00004c20| 63 3e 30 20 54 48 45 4e | 20 74 6c 69 6d 69 74 73 |c>0 THEN| tlimits|
|00004c30| 65 63 3d 46 4e 20 63 68 | 61 6e 67 65 44 69 67 69 |ec=FN ch|angeDigi|
|00004c40| 74 28 74 6c 69 6d 69 74 | 73 65 63 2c 20 31 30 2c |t(tlimit|sec, 10,|
|00004c50| 20 62 75 74 74 6f 6e 68 | 69 74 2c 20 2d 31 29 0d | buttonh|it, -1).|
|00004c60| 20 20 20 20 20 20 20 20 | 43 41 53 45 20 31 39 0d | |CASE 19.|
|00004c70| 20 20 20 20 20 20 20 20 | 20 20 62 75 74 74 6f 6e | | button|
|00004c80| 68 69 74 3d 31 39 0d 20 | 20 20 20 20 20 20 20 43 |hit=19. | C|
|00004c90| 41 53 45 20 32 30 0d 20 | 20 20 20 20 20 20 20 20 |ASE 20. | |
|00004ca0| 20 62 75 74 74 6f 6e 68 | 69 74 3d 32 30 0d 20 20 | buttonh|it=20. |
|00004cb0| 20 20 20 20 20 20 43 41 | 53 45 20 32 31 0d 20 20 | CA|SE 21. |
|00004cc0| 20 20 20 20 20 20 20 20 | 62 72 65 61 6b 6f 75 74 | |breakout|
|00004cd0| 3d 31 0d 20 20 20 20 20 | 20 20 20 43 41 53 45 20 |=1. | CASE |
|00004ce0| 32 32 0d 20 20 20 20 20 | 20 20 20 20 20 4c 4f 4e |22. | LON|
|00004cf0| 47 20 49 46 20 72 65 67 | 56 61 72 0d 20 20 20 20 |G IF reg|Var. |
|00004d00| 20 20 20 20 20 20 20 20 | 46 4e 20 73 61 76 65 6c | |FN savel|
|00004d10| 69 73 74 0d 20 20 20 20 | 20 20 20 20 20 20 58 45 |ist. | XE|
|00004d20| 4c 53 45 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |LSE. | |
|00004d30| 57 49 4e 44 4f 57 20 32 | 2c 2c 28 72 65 7a 57 2f |WINDOW 2|,,(rezW/|
|00004d40| 32 2d 31 30 30 2c 72 65 | 7a 48 2f 32 2b 37 30 29 |2-100,re|zH/2+70)|
|00004d50| 2d 28 72 65 7a 57 2f 32 | 2b 31 30 30 2c 72 65 7a |-(rezW/2|+100,rez|
|00004d60| 48 2f 32 2b 31 37 30 29 | 2c 5f 64 69 61 6c 6f 67 |H/2+170)|,_dialog|
|00004d70| 50 6c 61 69 6e 0d 20 20 | 20 20 20 20 20 20 20 20 |Plain. | |
|00004d80| 20 20 50 52 49 4e 54 20 | 22 48 65 79 20 77 68 65 | PRINT |"Hey whe|
|00004d90| 72 65 20 64 6f 20 79 6f | 75 20 74 68 69 6e 6b 20 |re do yo|u think |
|00004da0| 79 6f 75 27 72 65 22 0d | 20 20 20 20 20 20 20 20 |you're".| |
|00004db0| 20 20 20 20 50 52 49 4e | 54 20 22 67 6f 69 6e 67 | PRIN|T "going|
|00004dc0| 3f 20 4d 79 20 70 61 70 | 65 72 73 20 73 61 79 20 |? My pap|ers say |
|00004dd0| 79 6f 75 20 73 74 69 6c | 6c 22 0d 20 20 20 20 20 |you stil|l". |
|00004de0| 20 20 20 20 20 20 20 50 | 52 49 4e 54 20 22 68 61 | P|RINT "ha|
|00004df0| 76 65 6e 27 74 20 72 65 | 67 69 73 74 65 72 65 64 |ven't re|gistered|
|00004e00| 21 20 55 6e 74 69 6c 20 | 79 6f 75 20 64 6f 22 0d |! Until |you do".|
|00004e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 50 52 49 4e | | PRIN|
|00004e20| 54 20 22 74 68 61 74 2c | 20 79 6f 75 27 72 65 20 |T "that,| you're |
|00004e30| 73 74 69 6c 6c 20 69 6e | 20 74 72 61 69 6e 69 6e |still in| trainin|
|00004e40| 67 21 22 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |g!". | |
|00004e50| 50 52 49 4e 54 20 22 47 | 65 74 20 62 61 63 6b 20 |PRINT "G|et back |
|00004e60| 74 6f 20 74 68 65 20 73 | 69 6d 75 6c 61 74 6f 72 |to the s|imulator|
|00004e70| 21 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 44 |!". | D|
|00004e80| 4f 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 55 4e |O. | UN|
|00004e90| 54 49 4c 20 4c 45 4e 28 | 49 4e 4b 45 59 24 29 0d |TIL LEN(|INKEY$).|
|00004ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 57 49 4e 44 | | WIND|
|00004eb0| 4f 57 20 43 4c 4f 53 45 | 20 32 0d 20 20 20 20 20 |OW CLOSE| 2. |
|00004ec0| 20 20 20 20 20 45 4e 44 | 20 49 46 0d 20 20 20 20 | END| IF. |
|00004ed0| 20 20 45 4e 44 20 53 45 | 4c 45 43 54 0d 20 20 20 | END SE|LECT. |
|00004ee0| 20 43 41 53 45 20 5f 62 | 74 6e 43 6c 69 63 6b 0d | CASE _b|tnClick.|
|00004ef0| 20 20 20 20 20 20 53 45 | 4c 45 43 54 20 69 64 0d | SE|LECT id.|
|00004f00| 20 20 20 20 20 20 20 20 | 43 41 53 45 20 31 0d 20 | |CASE 1. |
|00004f10| 20 20 20 20 20 20 20 20 | 20 62 75 74 74 6f 6e 68 | | buttonh|
|00004f20| 69 74 3d 31 0d 20 20 20 | 20 20 20 20 20 43 41 53 |it=1. | CAS|
|00004f30| 45 20 32 0d 20 20 20 20 | 20 20 20 20 20 20 62 75 |E 2. | bu|
|00004f40| 74 74 6f 6e 68 69 74 3d | 32 0d 20 20 20 20 20 20 |ttonhit=|2. |
|00004f50| 20 20 43 41 53 45 20 33 | 0d 20 20 20 20 20 20 20 | CASE 3|. |
|00004f60| 20 20 20 53 4f 55 4e 44 | 20 45 4e 44 0d 20 20 20 | SOUND| END. |
|00004f70| 20 20 20 20 20 20 20 62 | 72 65 61 6b 6f 75 74 3d | b|reakout=|
|00004f80| 31 0d 20 20 20 20 20 20 | 20 20 43 41 53 45 20 34 |1. | CASE 4|
|00004f90| 0d 20 20 20 20 20 20 20 | 20 20 20 53 4f 55 4e 44 |. | SOUND|
|00004fa0| 20 45 4e 44 0d 20 20 20 | 20 20 20 20 20 20 20 62 | END. | b|
|00004fb0| 72 65 61 6b 6f 75 74 3d | 32 0d 20 20 20 20 20 20 |reakout=|2. |
|00004fc0| 20 20 43 41 53 45 20 35 | 0d 20 20 20 20 20 20 20 | CASE 5|. |
|00004fd0| 20 20 20 53 4f 55 4e 44 | 20 45 4e 44 0d 20 20 20 | SOUND| END. |
|00004fe0| 20 20 20 20 20 20 20 45 | 4e 44 0d 20 20 20 20 20 | E|ND. |
|00004ff0| 20 20 20 43 41 53 45 20 | 36 0d 20 20 20 20 20 20 | CASE |6. |
|00005000| 20 20 20 20 4f 50 45 4e | 20 22 52 22 2c 31 2c 20 | OPEN| "R",1, |
|00005010| 22 53 61 76 65 73 22 2c | 2c 66 6f 6c 64 65 72 4c |"Saves",|,folderL|
|00005020| 6f 63 0d 20 20 20 20 20 | 20 20 20 20 20 52 45 43 |oc. | REC|
|00005030| 4f 52 44 20 31 2c 73 65 | 6c 65 63 74 65 64 73 61 |ORD 1,se|lectedsa|
|00005040| 76 65 2a 31 30 0d 20 20 | 20 20 20 20 20 20 20 20 |ve*10. | |
|00005050| 73 61 76 65 4e 61 6d 65 | 24 3d 22 22 0d 20 20 20 |saveName|$="". |
|00005060| 20 20 20 20 20 20 20 57 | 52 49 54 45 20 31 2c 73 | W|RITE 1,s|
|00005070| 61 76 65 4e 61 6d 65 24 | 3b 30 0d 20 20 20 20 20 |aveName$|;0. |
|00005080| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 20 20 | . | |
|00005090| 52 45 43 4f 52 44 20 31 | 2c 73 65 6c 65 63 74 65 |RECORD 1|,selecte|
|000050a0| 64 73 61 76 65 2a 31 30 | 2b 31 0d 20 20 20 20 20 |dsave*10|+1. |
|000050b0| 20 20 20 20 20 6e 61 6d | 65 4c 65 6e 67 74 68 3d | nam|eLength=|
|000050c0| 30 0d 20 20 20 20 20 20 | 20 20 20 20 57 52 49 54 |0. | WRIT|
|000050d0| 45 20 31 2c 6e 61 6d 65 | 4c 65 6e 67 74 68 0d 20 |E 1,name|Length. |
|000050e0| 20 20 20 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 | | . |
|000050f0| 20 20 20 20 52 45 43 4f | 52 44 20 31 2c 73 65 6c | RECO|RD 1,sel|
|00005100| 00 00 74 65 64 73 61 76 | 65 2a 31 30 2b 32 0d 20 |..tedsav|e*10+2. |
|00005110| 20 20 20 20 20 20 20 20 | 20 67 65 6e 65 72 69 63 | | generic|
|00005120| 49 6e 74 3d 30 0d 20 20 | 20 20 20 20 20 20 20 20 |Int=0. | |
|00005130| 57 52 49 54 45 20 31 2c | 67 65 6e 65 72 69 63 49 |WRITE 1,|genericI|
|00005140| 6e 74 0d 20 20 20 20 20 | 20 20 20 20 20 43 4c 4f |nt. | CLO|
|00005150| 53 45 20 31 0d 20 20 20 | 20 20 20 20 20 20 20 0d |SE 1. | .|
|00005160| 20 20 20 20 20 20 20 20 | 20 20 57 49 4e 44 4f 57 | | WINDOW|
|00005170| 20 43 4c 4f 53 45 20 32 | 0d 20 20 20 20 20 20 20 | CLOSE 2|. |
|00005180| 20 20 20 62 72 65 61 6b | 6f 75 74 3d 33 0d 20 20 | break|out=3. |
|00005190| 20 20 20 20 20 20 43 41 | 53 45 20 37 0d 20 20 20 | CA|SE 7. |
|000051a0| 20 20 20 20 20 20 20 57 | 49 4e 44 4f 57 20 43 4c | W|INDOW CL|
|000051b0| 4f 53 45 20 32 0d 20 20 | 20 20 20 20 45 4e 44 20 |OSE 2. | END |
|000051c0| 53 45 4c 45 43 54 0d 20 | 20 20 20 43 41 53 45 20 |SELECT. | CASE |
|000051d0| 5f 65 76 4b 65 79 0d 20 | 20 20 20 20 20 53 45 4c |_evKey. | SEL|
|000051e0| 45 43 54 20 73 63 72 65 | 65 6e 0d 20 20 20 20 20 |ECT scre|en. |
|000051f0| 20 20 20 43 41 53 45 20 | 31 0d 20 20 20 20 20 20 | CASE |1. |
|00005200| 00 00 ff dc 54 80 07 bd | 41 82 00 74 54 a0 06 3e |....T...|A..tT..>|
|00005210| 2c 00 00 02 41 82 00 20 | 40 80 00 28 2c 00 00 01 |,...A.. |@..(,...|
|00005220| 40 80 00 08 48 00 00 1c | 80 9f 00 00 39 24 01 68 |@...H...|....9$.h|
|00005230| 48 00 00 18 80 9f 00 00 | 39 24 01 9c 48 00 00 0c |H.......|9$..H...|
|00005240| 38 60 ff ce 48 00 01 14 | 39 00 00 00 7d 04 43 78 |8`..H...|9...}.Cx|
|00005250| 48 00 00 20 7d 00 07 34 | 54 05 10 3a 7c 09 28 2e |H.. }..4|T..:|.(.|
|00005260| 7c 00 18 40 40 82 00 08 | 7c 89 29 2e 39 08 00 01 ||..@@...||.).9...|
|00005270| 7d 00 07 34 2c 00 00 04 | 41 80 ff dc 80 7f 00 00 |}..4,...|A.......|
|00005280| a0 03 01 30 28 00 00 02 | 40 82 00 60 88 03 02 58 |...0(...|@..`...X|
|00005290| 28 00 00 00 40 82 00 54 | 39 00 00 00 48 00 00 24 |(...@..T|9...H..$|
|000052a0| 7d 00 07 34 54 03 10 3a | 80 9f 00 00 38 03 01 08 |}..4T..:|....8...|
|000052b0| 7c 04 00 2e 28 00 00 00 | 40 82 00 14 39 08 00 01 ||...(...|@...9...|
|000052c0| 7d 00 07 34 2c 00 00 04 | 41 80 ff d8 7d 00 07 34 |}..4,...|A...}..4|
|000052d0| 2c 00 00 04 40 82 00 14 | 38 60 00 01 7c 64 1b 78 |,...@...|8`..|d.x|
|000052e0| 48 00 2b 99 60 00 00 00 | 80 7f 00 00 a0 03 01 c4 |H.+.`...|........|
|000052f0| 28 00 00 02 40 82 00 60 | 88 03 02 58 28 00 00 00 |(...@..`|...X(...|
|00005300| 40 82 00 54 39 00 00 00 | 48 00 00 24 7d 00 07 34 |@..T9...|H..$}..4|
|00005310| 54 03 10 3a 80 9f 00 00 | 38 03 01 9c 7c 04 00 2e |T..:....|8...|...|
|00005320| 28 00 00 00 40 82 00 14 | 39 08 00 01 7d 00 07 34 |(...@...|9...}..4|
|00005330| 2c 00 00 04 41 80 ff d8 | 7d 00 07 34 2c 00 00 04 |,...A...|}..4,...|
|00005340| 40 82 00 14 38 60 00 01 | 38 80 00 02 48 00 2b 2d |@...8`..|8...H.+-|
|00005350| 60 00 00 00 38 60 00 00 | 80 01 00 48 38 21 00 40 |`...8`..|...H8!.@|
|00005360| 7c 08 03 a6 83 e1 ff fc | 4e 80 00 20 7c 08 02 a6 ||.......|N.. |...|
|00005370| bf 41 ff e8 90 01 00 08 | 94 21 ff a0 3b e2 03 60 |.A......|.!..;..`|
|00005380| 38 61 00 38 3b 80 00 00 | 48 00 03 25 60 00 00 00 |8a.8;...|H..%`...|
|00005390| 80 01 00 38 54 00 07 bd | 41 82 00 0c 7f 83 e3 78 |...8T...|A......x|
|000053a0| 48 00 02 14 80 7f 00 00 | 38 00 0c 70 80 63 01 58 |H.......|8..p.c.X|
|000053b0| 38 80 00 70 90 03 00 00 | 80 7f 00 00 38 00 00 01 |8..p....|....8...|
|000053c0| 80 63 01 54 90 83 00 00 | 80 7f 00 00 98 03 02 54 |.c.T....|.......T|
|000053d0| 80 7f 00 00 80 03 01 44 | 90 03 01 5c 80 7f 00 00 |.......D|...\....|
|000053e0| 88 63 02 6b 48 00 40 89 | 60 00 00 00 38 61 00 3c |.c.kH.@.|`...8a.<|
|000053f0| 4b ff fa 7d 60 00 00 00 | 80 01 00 3c 7f 9b e3 78 |K..}`...|...<...x|
|00005400| 41 53 45 20 31 33 0d 20 | 20 20 20 20 20 20 20 20 |ASE 13. | |
|00005410| 20 20 20 20 20 69 6e 63 | 61 6d 70 3d 31 0d 20 20 | inc|amp=1. |
|00005420| 20 20 20 20 20 20 20 20 | 20 20 20 20 0d 20 20 20 | | . |
|00005430| 20 20 20 20 20 20 20 20 | 20 20 20 4f 50 45 4e 20 | | OPEN |
|00005440| 22 52 22 2c 31 2c 22 53 | 61 76 65 73 22 2c 2c 66 |"R",1,"S|aves",,f|
|00005450| 6f 6c 64 65 72 4c 6f 63 | 0d 20 20 20 20 20 20 20 |olderLoc|. |
|00005460| 20 20 20 20 20 20 20 52 | 45 43 4f 52 44 20 31 2c | R|ECORD 1,|
|00005470| 73 65 6c 65 63 74 65 64 | 73 61 76 65 2a 31 30 2b |selected|save*10+|
|00005480| 32 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |2. | |
|00005490| 52 45 41 44 20 23 31 2c | 6c 65 76 65 6c 0d 20 20 |READ #1,|level. |
|000054a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 0d 20 20 20 | | . |
|000054b0| 20 20 20 20 20 20 20 20 | 20 20 20 4c 4f 4e 47 20 | | LONG |
|000054c0| 49 46 20 6c 65 76 65 6c | 3d 30 0d 20 20 20 20 20 |IF level|=0. |
|000054d0| 20 20 20 20 20 20 20 20 | 20 20 20 57 49 4e 44 4f | | WINDO|
|000054e0| 57 20 32 2c 2c 28 72 65 | 7a 57 2f 32 2d 31 30 30 |W 2,,(re|zW/2-100|
|000054f0| 2c 72 65 7a 48 2f 32 2b | 31 33 35 29 2d 28 72 65 |,rezH/2+|135)-(re|
|00005500| 7a 57 2f 32 2b 31 30 30 | 2c 72 65 7a 48 2f 32 2b |zW/2+100|,rezH/2+|
|00005510| 31 36 30 29 2c 5f 64 69 | 61 6c 6f 67 50 6c 61 69 |160),_di|alogPlai|
|00005520| 6e 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n. | |
|00005530| 20 20 49 4e 50 55 54 20 | 22 4e 65 77 20 4f 66 66 | INPUT |"New Off|
|00005540| 69 63 65 72 20 4e 61 6d | 65 3a 22 3b 73 61 76 65 |icer Nam|e:";save|
|00005550| 4e 61 6d 65 24 0d 20 20 | 20 20 20 20 20 20 20 20 |Name$. | |
|00005560| 20 20 20 20 20 20 57 49 | 4e 44 4f 57 20 43 4c 4f | WI|NDOW CLO|
|00005570| 53 45 20 32 0d 20 20 20 | 20 20 20 20 20 20 20 20 |SE 2. | |
|00005580| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 20 20 | . | |
|00005590| 20 20 20 20 20 20 4c 4f | 4e 47 20 49 46 20 73 61 | LO|NG IF sa|
|000055a0| 76 65 4e 61 6d 65 24 3c | 3e 22 22 0d 20 20 20 20 |veName$<|>"". |
|000055b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6e 61 | | na|
|000055c0| 6d 65 4c 65 6e 67 74 68 | 3d 4c 45 4e 28 73 61 76 |meLength|=LEN(sav|
|000055d0| 65 4e 61 6d 65 24 29 0d | 20 20 20 20 20 20 20 20 |eName$).| |
|000055e0| 20 20 20 20 20 20 20 20 | 20 20 52 45 43 4f 52 44 | | RECORD|
|000055f0| 20 31 2c 73 65 6c 65 63 | 74 65 64 73 61 76 65 2a | 1,selec|tedsave*|
|00005600| 31 30 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |10. | |
|00005610| 20 20 20 20 20 57 52 49 | 54 45 20 31 2c 73 61 76 | WRI|TE 1,sav|
|00005620| 65 4e 61 6d 65 24 3b 6e | 61 6d 65 4c 65 6e 67 74 |eName$;n|ameLengt|
|00005630| 68 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |h. | |
|00005640| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|00005650| 20 20 20 20 20 20 20 52 | 45 43 4f 52 44 20 31 2c | R|ECORD 1,|
|00005660| 73 65 6c 65 63 74 65 64 | 73 61 76 65 2a 31 30 2b |selected|save*10+|
|00005670| 31 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1. | |
|00005680| 20 20 20 20 57 52 49 54 | 45 20 31 2c 6e 61 6d 65 | WRIT|E 1,name|
|00005690| 4c 65 6e 67 74 68 0d 20 | 20 20 20 20 20 20 20 20 |Length. | |
|000056a0| 20 20 20 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 | | . |
|000056b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6c 65 76 65 | | leve|
|000056c0| 6c 3d 31 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |l=1. | |
|000056d0| 20 20 20 20 20 20 52 45 | 43 4f 52 44 20 31 2c 73 | RE|CORD 1,s|
|000056e0| 65 6c 65 63 74 65 64 73 | 61 76 65 2a 31 30 2b 32 |electeds|ave*10+2|
|000056f0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00005700| 20 20 20 57 52 49 54 45 | 20 31 2c 6c 65 76 65 6c | WRITE| 1,level|
|00005710| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00005720| 20 20 20 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|00005730| 20 20 20 20 20 20 43 4c | 4f 53 45 20 31 0d 20 20 | CL|OSE 1. |
|00005740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005750| 62 72 65 61 6b 6f 75 74 | 3d 33 0d 20 20 20 20 20 |breakout|=3. |
|00005760| 20 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 20 49 | | END I|
|00005770| 46 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |F. | |
|00005780| 58 45 4c 53 45 0d 20 20 | 20 20 20 20 20 20 20 20 |XELSE. | |
|00005790| 20 20 20 20 20 20 52 45 | 43 4f 52 44 20 31 2c 30 | RE|CORD 1,0|
|000057a0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000057b0| 20 57 52 49 54 45 20 31 | 2c 73 65 6c 65 63 74 65 | WRITE 1|,selecte|
|000057c0| 64 73 61 76 65 0d 20 20 | 20 20 20 20 20 20 20 20 |dsave. | |
|000057d0| 20 20 20 20 20 20 43 4c | 4f 53 45 20 31 0d 20 20 | CL|OSE 1. |
|000057e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 20 | | . |
|000057f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 46 | | F|
|00005800| 4e 20 6c 65 76 65 6c 49 | 6e 74 72 6f 0d 20 20 20 |N levelI|ntro. |
|00005810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 62 72 65 | | bre|
|00005820| 61 6b 6f 75 74 3d 32 0d | 20 20 20 20 20 20 20 20 |akout=2.| |
|00005830| 20 20 20 20 20 20 45 4e | 44 20 49 46 0d 20 20 20 | EN|D IF. |
|00005840| 20 20 20 20 20 20 20 20 | 20 43 41 53 45 20 38 0d | | CASE 8.|
|00005850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 57 49 | | WI|
|00005860| 4e 44 4f 57 20 32 2c 2c | 28 72 65 7a 57 2f 32 2d |NDOW 2,,|(rezW/2-|
|00005870| 32 32 30 2c 72 65 7a 48 | 2f 32 2b 31 33 35 29 2d |220,rezH|/2+135)-|
|00005880| 28 72 65 7a 57 2f 32 2b | 32 32 30 2c 72 65 7a 48 |(rezW/2+|220,rezH|
|00005890| 2f 32 2b 31 39 35 29 2c | 5f 64 69 61 6c 6f 67 50 |/2+195),|_dialogP|
|000058a0| 6c 61 69 6e 0d 20 20 20 | 20 20 20 20 20 20 20 20 |lain. | |
|000058b0| 20 20 20 50 52 49 4e 54 | 20 22 41 72 65 20 79 6f | PRINT| "Are yo|
|000058c0| 75 20 61 62 73 6f 6c 75 | 74 65 6c 79 20 73 75 72 |u absolu|tely sur|
|000058d0| 65 20 79 6f 75 20 77 61 | 6e 74 20 74 6f 20 70 65 |e you wa|nt to pe|
|000058e0| 72 6d 61 6e 65 6e 74 6c | 79 20 64 65 6c 65 74 65 |rmanentl|y delete|
|000058f0| 20 74 68 69 73 20 6f 66 | 66 69 63 65 72 3f 22 0d | this of|ficer?".|
|00005900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 20 | | . |
|00005910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 42 55 54 | | BUT|
|00005920| 54 4f 4e 20 36 2c 5f 61 | 63 74 69 76 65 42 74 6e |TON 6,_a|ctiveBtn|
|00005930| 2c 22 59 65 73 22 2c 28 | 34 30 2c 33 35 29 2d 28 |,"Yes",(|40,35)-(|
|00005940| 31 34 30 2c 35 35 29 2c | 5f 70 75 73 68 0d 20 20 |140,55),|_push. |
|00005950| 20 20 20 20 20 20 20 20 | 20 20 20 20 42 55 54 54 | | BUTT|
|00005960| 4f 4e 20 37 2c 5f 61 63 | 74 69 76 65 42 74 6e 2c |ON 7,_ac|tiveBtn,|
|00005970| 22 4e 6f 22 2c 28 33 30 | 30 2c 33 35 29 2d 28 34 |"No",(30|0,35)-(4|
|00005980| 30 30 2c 35 35 29 2c 5f | 70 75 73 68 0d 20 20 20 |00,55),_|push. |
|00005990| 20 20 20 20 20 20 20 45 | 4e 44 20 53 45 4c 45 43 | E|ND SELEC|
|000059a0| 54 0d 20 20 20 20 20 20 | 20 20 43 41 53 45 20 32 |T. | CASE 2|
|000059b0| 0d 20 20 20 20 20 20 20 | 20 20 20 53 45 4c 45 43 |. | SELEC|
|000059c0| 54 20 69 64 0d 20 20 20 | 20 20 20 20 20 20 20 20 |T id. | |
|000059d0| 20 43 41 53 45 20 32 39 | 0d 20 20 20 20 20 20 20 | CASE 29|. |
|000059e0| 20 20 20 20 20 20 20 4c | 4f 4e 47 20 49 46 20 61 | L|ONG IF a|
|000059f0| 63 74 69 76 65 43 69 72 | 63 3c 6c 65 6e 67 74 68 |ctiveCir|c<length|
|00005a00| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00005a10| 20 50 49 43 54 55 52 45 | 20 46 49 45 4c 44 20 31 | PICTURE| FIELD 1|
|00005a20| 30 37 2b 61 63 74 69 76 | 65 43 69 72 63 2c 20 22 |07+activ|eCirc, "|
|00005a30| 52 47 4c 69 67 68 74 52 | 4f 6e 22 0d 20 20 20 20 |RGLightR|On". |
|00005a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 63 74 69 | | acti|
|00005a50| 76 65 43 69 72 63 3d 61 | 63 74 69 76 65 43 69 72 |veCirc=a|ctiveCir|
|00005a60| 63 2b 31 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |c+1. | |
|00005a70| 20 20 20 20 50 49 43 54 | 55 52 45 20 46 49 45 4c | PICT|URE FIEL|
|00005a80| 44 20 31 30 37 2b 61 63 | 74 69 76 65 43 69 72 63 |D 107+ac|tiveCirc|
|00005a90| 2c 20 22 52 47 4c 69 67 | 68 74 47 4f 6e 22 0d 20 |, "RGLig|htGOn". |
|00005aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 | | END|
|00005ab0| 20 49 46 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | IF. | |
|00005ac0| 43 41 53 45 20 32 38 0d | 20 20 20 20 20 20 20 20 |CASE 28.| |
|00005ad0| 20 20 20 20 20 20 4c 4f | 4e 47 20 49 46 20 61 63 | LO|NG IF ac|
|00005ae0| 74 69 76 65 43 69 72 63 | 3e 31 0d 20 20 20 20 20 |tiveCirc|>1. |
|00005af0| 20 20 20 20 20 20 20 20 | 20 20 20 50 49 43 54 55 | | PICTU|
|00005b00| 00 00 20 46 49 45 4c 44 | 20 31 30 37 2b 61 63 74 |.. FIELD| 107+act|
|00005b10| 69 76 65 43 69 72 63 2c | 20 22 52 47 4c 69 67 68 |iveCirc,| "RGLigh|
|00005b20| 74 52 4f 6e 22 0d 20 20 | 20 20 20 20 20 20 20 20 |tROn". | |
|00005b30| 20 20 20 20 20 20 61 63 | 74 69 76 65 43 69 72 63 | ac|tiveCirc|
|00005b40| 3d 61 63 74 69 76 65 43 | 69 72 63 2d 31 0d 20 20 |=activeC|irc-1. |
|00005b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 49 | | PI|
|00005b60| 43 54 55 52 45 20 46 49 | 45 4c 44 20 31 30 37 2b |CTURE FI|ELD 107+|
|00005b70| 61 63 74 69 76 65 43 69 | 72 63 2c 20 22 52 47 4c |activeCi|rc, "RGL|
|00005b80| 69 67 68 74 47 4f 6e 22 | 0d 20 20 20 20 20 20 20 |ightGOn"|. |
|00005b90| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0d 20 20 | E|ND IF. |
|00005ba0| 20 20 20 20 20 20 20 20 | 20 20 43 41 53 45 20 33 | | CASE 3|
|00005bb0| 30 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0. | |
|00005bc0| 4c 4f 4e 47 20 49 46 20 | 67 75 65 73 73 28 61 63 |LONG IF |guess(ac|
|00005bd0| 74 69 76 65 43 69 72 63 | 29 3c 73 65 6e 73 69 74 |tiveCirc|)<sensit|
|00005be0| 69 76 69 74 79 0d 20 20 | 20 20 20 20 20 20 20 20 |ivity. | |
|00005bf0| 20 20 20 20 20 20 67 75 | 65 73 73 28 61 63 74 69 | gu|ess(acti|
|00005c00| 00 00 22 f1 60 00 00 00 | 48 00 00 24 57 c0 07 39 |..".`...|H..$W..9|
|00005c10| 41 82 00 1c 80 9f 00 00 | 80 64 01 d0 28 03 00 00 |A.......|.d..(...|
|00005c20| 41 82 00 0c 38 03 ff ff | 90 04 01 d0 57 c0 07 ff |A...8...|....W...|
|00005c30| 41 82 00 24 80 bf 00 00 | 38 60 00 01 80 85 01 cc |A..$....|8`......|
|00005c40| 38 04 00 01 90 05 01 cc | 48 00 22 a9 60 00 00 00 |8.......|H.".`...|
|00005c50| 48 00 00 40 57 c0 07 7b | 41 82 00 38 80 9f 00 00 |H..@W..{|A..8....|
|00005c60| 80 64 01 cc 28 03 00 00 | 41 82 00 0c 38 03 ff ff |.d..(...|A...8...|
|00005c70| 90 04 01 cc 80 7f 00 00 | 80 03 01 cc 28 00 00 00 |........|....(...|
|00005c80| 40 82 00 10 38 60 00 04 | 48 00 22 69 60 00 00 00 |@...8`..|H."i`...|
|00005c90| 38 60 00 00 80 01 00 48 | 38 21 00 40 7c 08 03 a6 |8`.....H|8!.@|...|
|00005ca0| 83 e1 ff fc 83 c1 ff f8 | 4e 80 00 20 7c 08 02 a6 |........|N.. |...|
|00005cb0| 93 e1 ff fc 93 c1 ff f8 | 90 01 00 08 94 21 ff c0 |........|.....!..|
|00005cc0| 7c 7f 1b 78 38 00 00 00 | 3b c2 03 60 90 1f 00 00 ||..x8...|;..`....|
|00005cd0| 80 9e 00 00 a0 04 02 48 | 2c 00 00 06 40 82 00 30 |.......H|,...@..0|
|00005ce0| 80 64 02 14 80 03 00 14 | 28 00 00 04 40 82 00 20 |.d......|(...@.. |
|00005cf0| 88 04 02 b0 28 00 00 00 | 41 82 00 44 80 1f 00 00 |....(...|A..D....|
|00005d00| 60 00 00 01 90 1f 00 00 | 48 00 00 34 80 7e 00 00 |`.......|H..4.~..|
|00005d10| 80 63 00 a8 80 63 00 04 | 48 00 32 a5 60 00 00 00 |.c...c..|H.2.`...|
|00005d20| 54 60 05 6b 41 82 00 18 | 54 60 07 ff 40 82 00 10 |T`.kA...|T`..@...|
|00005d30| 80 1f 00 00 60 00 00 01 | 90 1f 00 00 80 7e 00 00 |....`...|.....~..|
|00005d40| 80 63 01 38 80 63 00 04 | 48 00 32 75 60 00 00 00 |.c.8.c..|H.2u`...|
|00005d50| 54 60 05 6b 41 82 00 10 | 80 1f 00 00 60 00 00 02 |T`.kA...|....`...|
|00005d60| 90 1f 00 00 38 60 00 00 | 80 01 00 48 38 21 00 40 |....8`..|...H8!.@|
|00005d70| 7c 08 03 a6 83 e1 ff fc | 83 c1 ff f8 4e 80 00 20 ||.......|....N.. |
|00005d80| 28 06 00 00 38 e2 03 60 | 39 00 00 02 40 82 00 44 |(...8..`|9...@..D|
|00005d90| 80 c7 00 00 3c 00 56 22 | 80 c6 02 14 80 c6 00 10 |....<.V"|........|
|00005da0| 7c 06 00 00 41 82 00 1c | 40 80 00 20 3c 00 2b 11 ||...A...|@.. <.+.|
|00005db0| 7c 06 00 00 41 82 00 28 | 48 00 00 10 48 00 00 20 ||...A..(|H...H.. |
|00005dc0| 39 00 00 01 48 00 00 18 | 39 00 00 00 48 00 00 10 |9...H...|9...H...|
|00005dd0| 28 06 00 01 40 82 00 08 | 39 00 00 00 54 a0 06 3e |(...@...|9...T..>|
|00005de0| 2c 00 00 02 41 82 00 54 | 40 80 00 90 2c 00 00 01 |,...A..T|@...,...|
|00005df0| 40 80 00 08 48 00 00 84 | 54 80 07 ff 41 82 00 20 |@...H...|T...A.. |
|00005e00| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |. | P|
|00005e10| 49 43 54 55 52 45 20 46 | 49 45 4c 44 20 39 39 2b |ICTURE F|IELD 99+|
|00005e20| 61 63 74 69 76 65 43 69 | 72 63 2c 20 22 4c 43 44 |activeCi|rc, "LCD|
|00005e30| 33 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 43 |3". | C|
|00005e40| 41 53 45 20 35 32 0d 20 | 20 20 20 20 20 20 20 20 |ASE 52. | |
|00005e50| 20 20 20 20 20 67 75 65 | 73 73 28 61 63 74 69 76 | gue|ss(activ|
|00005e60| 65 43 69 72 63 29 3d 34 | 0d 20 20 20 20 20 20 20 |eCirc)=4|. |
|00005e70| 20 20 20 20 20 20 20 50 | 49 43 54 55 52 45 20 46 | P|ICTURE F|
|00005e80| 49 45 4c 44 20 39 39 2b | 61 63 74 69 76 65 43 69 |IELD 99+|activeCi|
|00005e90| 72 63 2c 20 22 4c 43 44 | 34 22 0d 20 20 20 20 20 |rc, "LCD|4". |
|00005ea0| 20 20 20 20 20 20 20 43 | 41 53 45 20 35 33 0d 20 | C|ASE 53. |
|00005eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 67 75 65 | | gue|
|00005ec0| 73 73 28 61 63 74 69 76 | 65 43 69 72 63 29 3d 35 |ss(activ|eCirc)=5|
|00005ed0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |. | P|
|00005ee0| 49 43 54 55 52 45 20 46 | 49 45 4c 44 20 39 39 2b |ICTURE F|IELD 99+|
|00005ef0| 61 63 74 69 76 65 43 69 | 72 63 2c 20 22 4c 43 44 |activeCi|rc, "LCD|
|00005f00| 35 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 43 |5". | C|
|00005f10| 41 53 45 20 35 34 0d 20 | 20 20 20 20 20 20 20 20 |ASE 54. | |
|00005f20| 20 20 20 20 20 4c 4f 4e | 47 20 49 46 20 73 65 6e | LON|G IF sen|
|00005f30| 73 69 74 69 76 69 74 79 | 3e 35 0d 20 20 20 20 20 |sitivity|>5. |
|00005f40| 20 20 20 20 20 20 20 20 | 20 20 20 67 75 65 73 73 | | guess|
|00005f50| 28 61 63 74 69 76 65 43 | 69 72 63 29 3d 36 0d 20 |(activeC|irc)=6. |
|00005f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 | | P|
|00005f70| 49 43 54 55 52 45 20 46 | 49 45 4c 44 20 39 39 2b |ICTURE F|IELD 99+|
|00005f80| 61 63 74 69 76 65 43 69 | 72 63 2c 20 22 4c 43 44 |activeCi|rc, "LCD|
|00005f90| 36 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |6". | |
|00005fa0| 20 45 4e 44 20 49 46 0d | 20 20 20 20 20 20 20 20 | END IF.| |
|00005fb0| 20 20 20 20 43 41 53 45 | 20 35 35 0d 20 20 20 20 | CASE| 55. |
|00005fc0| 20 20 20 20 20 20 20 20 | 20 20 4c 4f 4e 47 20 49 | | LONG I|
|00005fd0| 46 20 73 65 6e 73 69 74 | 69 76 69 74 79 3e 36 0d |F sensit|ivity>6.|
|00005fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005ff0| 67 75 65 73 73 28 61 63 | 74 69 76 65 43 69 72 63 |guess(ac|tiveCirc|
|00006000| 29 3d 37 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |)=7. | |
|00006010| 20 20 20 20 50 49 43 54 | 55 52 45 20 46 49 45 4c | PICT|URE FIEL|
|00006020| 44 20 39 39 2b 61 63 74 | 69 76 65 43 69 72 63 2c |D 99+act|iveCirc,|
|00006030| 20 22 4c 43 44 37 22 0d | 20 20 20 20 20 20 20 20 | "LCD7".| |
|00006040| 20 20 20 20 20 20 45 4e | 44 20 49 46 0d 20 20 20 | EN|D IF. |
|00006050| 20 20 20 20 20 20 20 20 | 20 43 41 53 45 20 35 36 | | CASE 56|
|00006060| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4c |. | L|
|00006070| 4f 4e 47 20 49 46 20 73 | 65 6e 73 69 74 69 76 69 |ONG IF s|ensitivi|
|00006080| 74 79 3e 37 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ty>7. | |
|00006090| 20 20 20 20 20 67 75 65 | 73 73 28 61 63 74 69 76 | gue|ss(activ|
|000060a0| 65 43 69 72 63 29 3d 38 | 0d 20 20 20 20 20 20 20 |eCirc)=8|. |
|000060b0| 20 20 20 20 20 20 20 20 | 20 50 49 43 54 55 52 45 | | PICTURE|
|000060c0| 20 46 49 45 4c 44 20 39 | 39 2b 61 63 74 69 76 65 | FIELD 9|9+active|
|000060d0| 43 69 72 63 2c 20 22 4c | 43 44 38 22 0d 20 20 20 |Circ, "L|CD8". |
|000060e0| 20 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 20 49 | | END I|
|000060f0| 46 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 43 41 |F. | CA|
|00006100| 53 45 20 35 37 0d 20 20 | 20 20 20 20 20 20 20 20 |SE 57. | |
|00006110| 20 20 20 20 4c 4f 4e 47 | 20 49 46 20 73 65 6e 73 | LONG| IF sens|
|00006120| 69 74 69 76 69 74 79 3e | 38 0d 20 20 20 20 20 20 |itivity>|8. |
|00006130| 20 20 20 20 20 20 20 20 | 20 20 67 75 65 73 73 28 | | guess(|
|00006140| 61 63 74 69 76 65 43 69 | 72 63 29 3d 38 0d 20 20 |activeCi|rc)=8. |
|00006150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 50 49 | | PI|
|00006160| 43 54 55 52 45 20 46 49 | 45 4c 44 20 39 39 2b 61 |CTURE FI|ELD 99+a|
|00006170| 63 74 69 76 65 43 69 72 | 63 2c 20 22 4c 43 44 38 |ctiveCir|c, "LCD8|
|00006180| 22 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |". | |
|00006190| 45 4e 44 20 49 46 0d 20 | 20 20 20 20 20 20 20 20 |END IF. | |
|000061a0| 20 20 20 43 41 53 45 20 | 31 33 0d 20 20 20 20 20 | CASE |13. |
|000061b0| 20 20 20 20 20 20 20 20 | 20 49 46 20 63 61 70 61 | | IF capa|
|000061c0| 63 69 74 6f 72 3d 30 20 | 54 48 45 4e 20 46 4e 20 |citor=0 |THEN FN |
|000061d0| 72 65 74 75 72 6e 48 69 | 74 0d 20 20 20 20 20 20 |returnHi|t. |
|000061e0| 20 20 20 20 45 4e 44 20 | 53 45 4c 45 43 54 0d 20 | END |SELECT. |
|000061f0| 20 20 20 20 20 45 4e 44 | 20 53 45 4c 45 43 54 0d | END| SELECT.|
|00006200| 20 20 45 4e 44 20 53 45 | 4c 45 43 54 0d 45 4e 44 | END SE|LECT.END|
|00006210| 20 46 4e 0d 0d 0d 4c 4f | 43 41 4c 20 46 4e 20 72 | FN...LO|CAL FN r|
|00006220| 65 64 72 61 77 0d 20 20 | 57 49 4e 44 4f 57 20 43 |edraw. |WINDOW C|
|00006230| 4c 4f 53 45 28 32 30 30 | 29 0d 20 20 53 45 4c 45 |LOSE(200|). SELE|
|00006240| 43 54 20 73 63 72 65 65 | 6e 0d 20 20 20 20 43 41 |CT scree|n. CA|
|00006250| 53 45 20 31 0d 20 20 20 | 20 20 20 46 4e 20 73 61 |SE 1. | FN sa|
|00006260| 76 65 6c 69 73 74 0d 20 | 20 20 20 43 41 53 45 20 |velist. | CASE |
|00006270| 32 0d 20 20 20 20 20 20 | 57 49 4e 44 4f 57 20 43 |2. |WINDOW C|
|00006280| 4c 4f 53 45 20 28 32 29 | 0d 20 20 20 20 20 20 57 |LOSE (2)|. W|
|00006290| 49 4e 44 4f 57 20 43 4c | 4f 53 45 20 28 33 29 0d |INDOW CL|OSE (3).|
|000062a0| 20 20 20 20 20 20 57 49 | 4e 44 4f 57 20 43 4c 4f | WI|NDOW CLO|
|000062b0| 53 45 20 28 34 29 0d 20 | 20 20 20 20 20 0d 20 20 |SE (4). | . |
|000062c0| 20 20 20 20 57 49 4e 44 | 4f 57 20 32 2c 2c 28 72 | WIND|OW 2,,(r|
|000062d0| 65 7a 57 2d 33 33 30 2c | 28 72 65 7a 48 2d 33 39 |ezW-330,|(rezH-39|
|000062e0| 37 29 2f 32 29 2d 28 72 | 65 7a 57 2d 31 30 35 2c |7)/2)-(r|ezW-105,|
|000062f0| 28 72 65 7a 48 2d 33 39 | 37 29 2f 32 2b 31 30 30 |(rezH-39|7)/2+100|
|00006300| 29 2c 5f 64 69 61 6c 6f | 67 50 6c 61 69 6e 0d 20 |),_dialo|gPlain. |
|00006310| 20 20 20 20 20 70 69 63 | 74 26 3d 46 4e 20 47 45 | pic|t&=FN GE|
|00006320| 54 52 45 53 4f 55 52 43 | 45 28 5f 22 50 49 43 54 |TRESOURC|E(_"PICT|
|00006330| 22 2c 31 35 37 29 0d 20 | 20 20 20 20 20 50 49 43 |",157). | PIC|
|00006340| 54 55 52 45 20 28 30 2c | 30 29 2d 28 32 32 35 2c |TURE (0,|0)-(225,|
|00006350| 31 30 30 29 2c 70 69 63 | 74 26 0d 20 20 20 20 20 |100),pic|t&. |
|00006360| 20 0d 20 20 20 20 20 20 | 43 4f 4c 4f 52 20 5f 7a | . |COLOR _z|
|00006370| 42 6c 61 63 6b 0d 20 20 | 20 20 20 20 42 4f 58 20 |Black. | BOX |
|00006380| 46 49 4c 4c 20 35 2c 35 | 20 54 4f 20 32 32 30 2c |FILL 5,5| TO 220,|
|00006390| 36 35 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |65. | . |
|000063a0| 46 4f 52 20 63 79 63 6c | 65 73 3d 31 20 54 4f 20 |FOR cycl|es=1 TO |
|000063b0| 38 0d 20 20 20 20 20 20 | 20 20 4c 4f 4e 47 20 49 |8. | LONG I|
|000063c0| 46 20 6c 65 6e 67 74 68 | 3e 3d 63 79 63 6c 65 73 |F length|>=cycles|
|000063d0| 0d 20 20 20 20 20 20 20 | 20 20 20 67 65 6e 65 72 |. | gener|
|000063e0| 69 63 53 74 72 24 3d 22 | 4c 43 44 22 2b 52 49 47 |icStr$="|LCD"+RIG|
|000063f0| 48 54 24 28 53 54 52 24 | 28 67 75 65 73 73 28 63 |HT$(STR$|(guess(c|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
